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NATO COMMANDER 

CBM Kass: 19a,- disk: 278,- 



F-15 STRIKE EAGLE 

SP: 198,- CBM Kass: 298,- 
disk: 298, 





SOLO FLIGHT 

SP: 198, CBM Kass 298,- 
disk: 298,- 


SPITFIRE ACE 

CBM Kass; 198, disk: 278,- 


FLAK 

CBM Kass; 198,-disk 298,- 


SNOKIE 

CBM Kass: 198,- disk: 278,- 


STRIP POKER 

SP: 175^ CBM Kass: 198, 
disk; 278, 


FORT APOCALYPSE 

SP: 175 t - CBM Kass: 198,- 
disk: 278, 


BLUE MAX 

SP: 175,- CBM Kass: 198 
disk: 278.- 


ZAXXON SENTINEL 

SP; 17 5^ CBM Ka S£ 198, C BM Kass; 198,- d i sk: 278,- 

disk; 278, 


DRELBS 

CBM Kass; 198.- disk: 278,- 



NB: Kun saig til videreforhandler. 


TWILIGHT 
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Flintholm Alte 26, 2000 Kobenhavn F, 
Tlf-01-880734 
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MYSTIC MANSION 

CBM Kass: 198,- disk 278,- 


BEACH HEAD 

SP: 175,-CBM Kass: 198,- 
disk: 278,- 


DALLAS 

CBM disk: 298, 


BRUCE LEE 

SP: 175,- cbm Kass: 198,- 
disk: 298,- 


POOYAN 

CBM Kass: 198.- disk: 278, 


O'RILEY’S MINE 
CBM Kass; 198.- disk 278, 


CAVERNS OF KHAFKA 

CBM Kass; 188,-disk; 278, 


AZTEC CHALLENGE 

CBM Kass; 188, disk: 278,- 


FORBIDDEN FOREST 

CBM Kass: 186.- disk: 278,- 


SLINKY 

CBM Kass: 186.- disk: 278,- 
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■ ComputerspO bliver l 0 r$t 
rigtig gode, ndr der kommer 
lyd pa. Vilie du ikke blive 
d 0 dtrist HI mode over et luft- 
kampspil, hvor jagerne de- 
de uden at 1 'protostere’ ’. El¬ 
ler racerbanen ligger hen i 
tavshed, som om nogen har 
lag! en pude over udstod- 
rungs ra re ne? 


Alle computers har lydkana- Lydeffekter til Ico^mcT 
ler indbyggeh Blot program- Commodore 64 j D ST 
meres de ikke p6 samme L J 

mbde. Alligevel findes der Lydkredsens basisadresse er 
lighedspunkter, som vi kan 54272. Da computeren kun 
udnytte i en roekke smdruti- accepterer de to iorste karak- 
ner til Commodore 64, Spec- terer i en variabel torkortede 
trum og Texas TI-99/4A. Ruti- vi variablen BASIS til BA. HI er 
nerne kan nemt indbygges tilsvarende trekvensen HI- 
som underprogrammer i eksi- byte. Til gengceld kan vi godt 
sterende spil ved hjceip al undvcere LO-byte. 

GOSUB kommandoer. Husk REMNedstyrt 
blot at trykke RETURN i slutnln- 10 BASIS = 54272 
gen at hver lydetfekt listning. 20 POKE BA + 24,15 

30 POKE BA4- 6, 15*16 

Smdtips tU 40 FOR HI = 80 TO 

lydnarkomaner L 0 STEP -1 

Hvls du Teks. vil Icegge lyd til 50 POKE BA + l, HI 
en nedstyriende flyver, er del 60 POKE BA + 4,17 
nemmest at lave en melodi- 70 FOR X = 0 TO 10: 
l 0 lge, som gdr fra en h 0 j til en NEXT X 
lav tone Melodlraekken skal 80 NEXT HI 
kore sd hurtigt, at man ikke 90 POKE BA + 24,0 
horer de enkelte toner, men I linie 20 fremkommer den 
kun et laengere pitt. Dette go- hojeste lydstyrke 15* 16i linie 
res nemmest ved at lade 30 sorger lor en varig tone I 
samtlige toner indgd i en linie 40 tastscettes frekvenser- 
FOR. NEXTlokke. ne. Med 17 i linie 60 opstdr 

Gcelder del om at skabe et la- en trekant, som kan erstattes 
resignal, bruger vi den mod- med vaerdien 33, FOR 
sattemelodircekke.Sdopndr NEXT slojlen i linie 70 sikrer 
vi lige prcscis den alarmlyd, den nodvendige tidslorskyd- 


REM Alarm 

10 BASIS = 54272 V^P 
20 FOR Ys1 TO 5 
30 TONE = 10 \0 

40 FOR HI = 70 TO \ | 
100 STEP 2 \ 

50 POKE BA + 24, TONE \ 
60 POKE BA + 6, 15*16 \ 

70 POKE BA + 1 ,HI 
80 POKE BA+ 4,33 
90 TONE = TONE + 1 
100 IF TONE 14 THEN 
TONE = 15 
110 NEXT HI 
120 NEXT Y 
130 POKE BA + 24,0 
Forskellen til "nedstyrt" ligger 
i, at lyden hceves i nivea Ira 
10 til 15. Med Y= 1 TO 5 sikrer 
vi, at alarmen gennemkgres 
iem gange. Linie 100 er ned- 
vendig (ordi enhver lydstyr- 
kevoerdi over 15 afstedkom- 
mer en fejlmelding. 
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Lydeffekter 
til Spectrum 


[Sum 


Lydeffekter til |n~99l 
Texas TI-99/4A I J 


REM Nedstyrt 
10 FOR X= 24 TO 
12 STEP -0.1 
20 BEEP 0.01 ,x 
30 NEXT X 

Afspillehastigheden i linie 20 
kan aendres efter behov. 

REM Alarm 
10 FOR y = 0 TO 2 
20 FOR x = 0 TO 12 
30 BEEP 0.02 ,X 
40 NEXT x 
50 NEXT y 

En hel ioneskala afspiUes i 
halvtoneskridt. Tidskonstan- 
ten 0.02 kan igen aendres el- 
!ei behov. Ved hjcelp ai FOR 
. . . NEXT $l 0 jfeme i linie 10 og 
50 gentages forlobei 3 gange 
REM Pointtab 
10 FOR x = 12 TO 1 STEP-1 
20 BEEP 0.05,x 
30 NEXT x 

Vcerdieme X=12 TO 1 tiem- 
kommer toneskalaens C til 
Cis, alspillet baglcBns. 

REM Sejrsmelodi 
10 FOR y= 0 TO 4 
20 READ v,t 
30 BEEP v,t 
40 NEXT y 

50 DATA 0.1,7,0.1,4,0.1,4 
60 DATA 0.5,9,0.6,7 

I denne listning gennemspil- 
les en lille melodi bestdende 
al toneme G,E,Fog A. Forkor- 
telsen v,t stdr lor 'varigtone". 



Pd Texas-computeren kaldes 
toneme trem ved deres fre- 
kvenser. Bemcerk i det f0l- 
gende program linie 10, hvor 
frekvenserne Ira 550 til 250 Hz 
20 atspilles med 50Hz spring. 
Med CALL SOUND afspilles to- 
nen X med lydstyiken 0 og 
varigheden 1. 

REM Pointtab 
10 FOT X = 550 TO 
250 STEP -50 
20 CALL SOUND (1 ,X,0) 
s i 30 NEXT X 

in- Eller i en anden version: 
el- 10 CALL SOUND 

3R (100,220,0) 

og 20 CALL SOUND 

ge. (100,175,0) 

30 CALL SOUND (200,-3,0) 
1 I det 10 Igende "alarm" pro¬ 
gram bruger vi ret h0je tre- 
kvenser, Med vaerdien 
rn- -10001 linie 30 apndr vi, at 
til toneme liies hurtigt at. Med 
til{ 0 jer vi en perlodevis su- 
sen, sd hele lydeflekten tdr et 
mere tarligt prceg. 

REM Alarm 
10 FOR Y 1 TO 3 
20 FOT X= 1500 TO 
,4 2500 STEP 250 

30 CALL SOUND 
>H- (-1000,X,0,—1,0) 

de 40 NEXT X 
or- 50 NEXT Y 

Vi har ogsd en sejrsmelodi 
pa rat til Texas-computeren: 
REM Sejrsmelodi 
10 CALL SOUND 
(100,392,0) 

30 CALL SOUND 

(100,392,0,330,0) 

40 CALL SOUND 

(200,440,0,392,0) 

50 CALL SOUND 
\ (200,392,0,330,0).□ 

^ Christian Jensen 

og Lett Bom berg 










Simple Logo er en (langsom) 
BASIC version af sproget LO¬ 
GO, men kan udmcerkei bnj- 
ges til al Ice re LOGO med. De 
forskellige kommandaer (19 
ialt) ligger i ordlorrddet fra 
starten, og det er muligt at Ice- 
re data mat en nye komman¬ 
doer. Paranteser er valglrie. 
Trykkes (ENTER) i komman- 
dofasen vises alle nglcerte 
ord. 


Simple Logo 



18 REM /V SIMPLE LOCO tCi MHZ SPQRK 25.09*S3 ✓✓ 

20 CLEAR 35239 

30 LET TEGN-i' LET WORD=0' LET PRGG-0' DIM Wit32/32,16 ) DIM Git 32,16 > 

40 LET CALL-0 ; DIM Ct 32.4 > : LET MX*-1 LET MY—1 

30 Dlil Sit 16 >* LET X-12S LET Y-BB' LET DG-0' DIM Cit165 DIM Ef«( 16) 

60 RESTORE 1060 POKE 23658.& POKE 23362,1' POKE 23609,16 
70 FOR F*39300 TO 39023' READ A- POKE F,Ri NEXT F 
80 CLS ' LET PUT-39312' LET GET-33300' LET L-USR PUT 
90 GO SOS 270 

100 INPUT ">■'> LINE hi IF A*-"" THEN CO TO 230 

110 LET Ci-fll' LET ERR-0' GO SUB 120■ GO TO 100 

120 RESTORE 1023 LET LlNE-0 FOR F»1 TO 19 READ E»,E 

130 IF C*( TO LEN Ei5«Ei THEN LET LINE-E' LET F-2B 

140 NEXT fi IF CALL-0 AND L1NE<0 THEN LET ERR-1 : RETURN 

130 IF LIH£<0 THEN RETURN 

160 IF LIME>0 THEN GO SUB LINE' GD TO 200 

170 LET C«0' FOR F-1 TO WORD IF Ci"Qi<Fj THEN LET C"F LET F-WORD 

180 NEXT F' IF G-0 THEN LET ERR-2' GO TO 200 

190 LET PROG-O- GO SUB 0920- RETURN 

200 IF ERft-1 THEN PRINT 10, "I Ikk* hr, 0 1" 

210 IF ERR*2 THEN PRINT #0; rJ 2 UdiPiTitrit ord, 0 1 H 

220 IF ERR-3 THEN PRINT 40J IH 3 Jntit Prairim. 01" 

230 IF ERR-4 THEN PRINT *0> M 4 Snor ikkt **t. 0'I" 

240 IF ERR-5 THEN PRINT 10:"3 Er dtfintrtt, 01" 

250 IP ERR>0 THEN PAUSE 10' PAUSE 0 

260 LET ERR-0■ RETURN 

270 POKE 23677. K> PUKE 2367B,Y* RETURN 

200 CLS ' FOR F-l TO WORD' PRINT GitF): NEXT F■ GO TO 100 
290 FOR F-l TO WORD 

300 CO SOS 270- LET L-UBR GET" LET FD-VAL Cit 3 TO 5 

310 LET DX-IMT < FDFtBIN tDG*tPlrlBfl3 ) >+0,5 7 

320 LET DY-INT tFDttCOB (0G*< PlKl00 > > 5+0, 5 5 

330 LET X-X+DX ; LET Y»Y4DY : IF TEGN THEN DRAW DX.DY 

340 CO SUB 270- LET L»USR PUT' RETURN 

350 GO SUB 270- LET L-USR GET* LET FD-VAL Cit4 TO 5 

360 LET DX«-1NT CFDKSIN tOOCCPIxlSB5+0,3> 

370 LET DY— INI tFDttCOB CDGttPI/180>55+0.55 

300 LET X-X+DX 4 LET Y-Y+D'Y 1 IF TEGN THEN DRAW DX.DY 

390 GO SUfi 270 LET L-USR PUT* RETURN 

400 LET TECN-0' return 

410 LET TEGN-1 RETURN 

420 LET OG-0' RETURN 

430 LET X-128 1 LET Y-BB' LET DG-0' LET TEGH-1 * LET MX—-1 * LET MY— t * CLS 

440 LET L-USR PUT- RETURN 

430 IF UIGRD-0 THEN LET ERR-3 ■ RETURN 

460 INPUT -'> M / LINE C<* LET G-0' FOR F-l TO WORD 

470 IF QitF)-Cl THEN LET G-F = LET F-WORD 

400 NEXT Fi IF 0-0 THEN LET ERR-2' RETURN 

490 CLS ' LET LEV-1 * LET F-l* PRINT MtG5 

300 PRINT Sit TO LEV5iWitG.Fi 

310 IF Wit G,F, TO 65--GENTAG" THEN LET LEV-LEV+1 

320 IF WitC,F4l. TO 6>-"HERTlL H OR WitG,F4l. TO 4i*"SLUT" THEN LET LEV"LEV-1 
330 IF F/20-INT tF/20 5 THEN INPUT "TftSI <ENTER> M i LINE A*' CLS 
340 IF Wit C,F, TO 4 5-"SLUT" THEN RETURN 


330 LET Fm F+L■ GO TO 0300 

360 LET DG-DG4VRL Cit 6 TO )-360*tDG+VHL Cit6 TO >53595 RETURN 
370 LET DG-DG-VflL C»<0 TO H360*t DG^VAL Cit B TO H0>^ RETURN 
5B0 LET MX-X' LET MY-Y' RETURN 

390 LET L-USR GET ■ IF MX—1 THEN LET ERR-4' RETURN 

600 IF TEGN THEN PLOT MX,MY' DRAW X-PEEK 23677.Y-FEEK 23673^ LET L-USR PUT 

610 GO SUB 270' RETURN 

620 LET L-USR GET■ RETURN 

630 LET L-USR GET' COPY ■ RETURN 

640 LET X-12B' LET Y-S8' CO SUB 270' LET TE&N-l* LET MX—1* LET MY—1 
630 DIM Ct32,45' LET CALL-0' DIM Wtt32.32,16,> DIM Q*<32, 1S>* LET PROG-0 
660 LET DG-0 1 INPUT "TAPE/tlICRODRIVE? "i LINE O' IF Cit I >-"M" THEN GO TO 0690 
670 LOAD "LOGO.OBJ" DATA Wit >' LOAD "LOGO,TXT" DATA Dtt > 

6B0 DIM P< 1 > LOAD ''LOGO,TXT 11 DATA Pt 5 LET MORD"PtI) = CLS ' RETURN 
690 LOAD *"M'M i "LOCOl.D" DATA Wit 5' LOAD *"M"> i> "L0G02.D'' DATA Oit > 

700 DIM Ptl>' LOAD tt'M 1 " J1J "LOGOS.D" DATA Pt 5' LET UORD-Pt 1 >' CLS RETURN 
710 INPUT "TAfE/MlCRQDRIVE? Jl j LINE C* 

720 IF Ci(I>""M" THEN GO TO 0750 

730 SAVE "LOGO.OBJ" DATA Wit >■ SAVE "LOGO,TXT" DATA Hit >■ DIM Pt1> 

740 LET Ptn-WORO' SAVE H LOGO,HEX" DATA Ft)' RETURN 

730 SAVE "LOCOl.D" DATA Wit 5- SAVE *"ITM i "L0G02.D" DATA Oft >' DIM Pt 1 5 

760 LET P(l> "WORD' SAVE * ,H M W ; 1J "LQGQ3, D" DATA PO' RETURN 

770 CLS ' INPUT ">"i LINE Ci= FOR F-l TO WORD 

780 IF Ci-QitFi then LET ERR*5' RETURN 

790 NEXT F RESTORE 1020' FOR F-i TO 19' READ Dt,D 

800 IF Di-Cit TO LEN D*> THEN LET EPR“3' RETURN 

BIB NEXT F> LET WORD-WDRD+1' LET Q>t WORD >-Ci 1 PRINT DitWORDi 

820 LET LINE-1' LET LEV-1 

830 INPUT "J 1 *: LINE Ci* LET G-0* FDR F-l TO WORD-1 : IF CMOitFi THEN LET G*=l 
840 NEXT F' RESTORE 1020' FOR F-l TO 19' READ Di,D 
830 IF Di-Cit TO LEN Di> THEN LET G-l 

868 NEXT F■ IF G-0 THEN LET ERR-2 : GO SUB 280' GO TO 0838 

870 IF Cit TO 4;-"SLUT- DR Cit TO 6i-"HERTI.L" THEN LET LEV-LEV-1 

880 PRINT Sit TO LEVJ.O* LET Wit WORD, LINE >*=C*' LET LIHE-L1NE41 

390 IF Cit TO 65-"GENTHG" THEN LET LEV-LEV41 

900 IF Cit TO 4 i- r 'SLUT" THEN RETURN 

910 CO TO 0838 

920 LET CALL-CALL+1' LET Z-0 LET LC-B* LET LOOPED 
330 LET LOOP-LOOP+1■ LET Ci-WitPROG.LOOP) 

940 LET C<CALL. 1 5-LOOP' LET CtCALL.2>=PROG' LET C<CALL,3>-2' LET CtCALL,4>-LC 
950 GO SUB 120 

960 LET LOOP-CtCALL,15= LET PR0C-C<CALL.2>' LET Z=*Ct CALL, 3> : LET LC*C<CALL,4> 
970 IF LlNErt-i THEN LET Z=LQOP= LET LC-VAL C*<7 TO 5-1' GO TO 0930 
980 IF LINE=-2 AND LC-0 THEN LET Z»0' GO TO 0930 
990 IF LlN£=-2 AND LO0 THEN LET LC-LC-t' LET LOOP-Z' GO TO 0938 
1000 IF LINE—3 THEN LET CALL-CALL-1' LET LINE-8 RETURN 
1010 GO TO 0938 

1028 DATA "KOPI",0630,"FREM".0300,"BAK H .033&, "FLYV", 0400 

1830 DATA "WENT" ,0640. l, GEM".0710, "’HUSK", 8770, "GENTHG".-!, "HERTIL".-2. "SLUT",-3 
1040 DATA "XRAVL",0410.-NQRD" ,0420, "PENS'* .0438, "LIdT M . 0430, "H&JRE", &560 
1050 DATA " VENSTRE u 0570, " SHOP" , 05S&, " STRAM ", 0590, " TEGN INC", 0620 
1060 DATA 33,255.231.17.0.64,1.0.24.237.176.201 
1070 DATA 33,0,64,17,255,231-1,0,24,237.176.201 
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A. Foniddefinerede 
instruktioner 
1 FREM 

Kommandoen FREM(n) 
bruges til at flytte "Skild¬ 
padden "(n), Punkter eller 
Pixels i midleriidig reining. 

- Se BAK(n). 

2. BAR 

Bruges som FREM(n) til at 
flytte skildpadden n Pixels 
i modsat reining. 

3 FLYV 

FLYV bevirker, at skild¬ 
padden ikke scatter spor, 
nbr den bevcege r sig. 
-Se KRAVL. 

4, KRAVL 

KRAVL fdr skildpadden til, 
modsat FLYV, at sceite 
spor under llytning. 

5 KENT 

AUe nulaerte kommando- 
er hentes Ira bdnd eller 
Microdrive. 

- Se GEM. 

6 . GEM 

Gemmer alle nye kom- 
mandoer pd bdnd eller 
Microdrive. 

7. HUSK 

Dette er kommandoen til 
at lcere computeren en 
ny kommando. Skriv 
HUSK (enter) VIFTE (enter), 
Computeren vil da skrive 
navnet VIFTE 0verst pd 
skcermen, Dernaest kan 
skrives kommandoer (bd- 
de originale og nye) ind, 
som bliver lagret og skre- 
vet, Der sluttes at med 
SLUT, Tre kommandoer 
kan kun bruges i indlae- 
ringstasen. De er: SLUT, 
GENTAG(n) og HERTIL. Se 
disse. 

8 SLUT 

1 indlaeringsiasen bevir- 
ker SLUT at computeren 
returnerer til kommando- 
fasen. 

9 GENTAG 

GENTAG(n) vil gentage 
de efterfolgende kom¬ 
mandoer indtil HERTIL in- 
struktionen n gange. Be- 
mcerk at GENTAG kun 
kan bruges i indlaerings- 
fasen, 

- Se HERTIL 
10. HERTIL 

Hopper tilbage til 
GENTAG-kommandoen, 
indtil dette er gjort de an- 
lal gange som beskrevet 
under GENTAG. Derefter 
forisaettes med nceste 
kommando. 


11 NORD 

Fdr skildpadden til at 
pege mod nord (opad). 

12. PENS 

Sletter skcermen, flytter 
skildpadden til midten at 
skcermen, tjemer SNORen 
hvis den er sat og udforer 
KRAVL-instruktion 

13, KOPI 

Kopierer skcermbilledel til 
ZX PRINTER. 

13. TEGNING 

Viser tegningen. 

15 SNOR 

Fdr skildpadden til at 
hamre et som i, hvor den 
stdr, lor dernaest at binde 
en snor om semmet. 

- Se STRAM, 

16, STRAM 

Fdr skildpadden til at 
siramme snoren. Dette 
bevirker, at en streng bli- 
ver tegnet mellem sem- 
met (skildpaddens place- 
ring ved SNOR-instruktio- 
nen) og den nuvcerende 
placering. Snoren siddei 
stadig pd semmet, 

17, LIST 

Skriv LIST (enter) og sd 
navnet pd en nytoert in¬ 
struktion . Den vil da blive 
udskrevet pd skcermen, 

16. H0JRE 

(Skrives H0JRE med 0'et 
som et nulO- H0JRE(n) fdr 
skildpadden til at dreje n 
grader mod hojre, 

-Se VENSTRE. 

19. VENSTRE 

VENSTRE(n) fdr skildpad¬ 
den til at dreje n grader 
mod venstre. 



s' s 

Skcermbilleder 

Her er nogle billeder fra SIMP¬ 
LE LOGO: 





B. Fejlkoder 

Ni. Fejltekst 

Forklaring 


D, Indlastning af ef 
nyt ord 

I, Ikke her. 

En af instruktioneme GENTAG, HERTIL el- 

Vi vil loere maskinen det 


lei SLUT er blevet udfart i normal kom- 

ovenstdende ord VIFTE. Skriv 


mandofase. 


folgende: (efter hver linie 

2. Udefineret ord. 

Kommandoen er ikke defineret. 

trykkes ENTER!), 

3, Lager tomt, 

Der er forsogt LIST i et torn! lager. 

HUSK 

4. Snor ikke sat. 

Kommandoen 

STRAM er udfart uden 

VIFTE 


ferst at have udfort SNOR eller mdske er 

RENS 


RENS udf0ri i mellemtiden. 

SNOR 

5. Er defineret. 

Navnet findes i forvejen. 

GENTAG 10 




FLYV 

C. Programeksempler 


FREM 16 

VIFTE 

FIRKANT 

BLOMST 

H0JRE 360/10 

RENS 

GENTAG(4) 

RENS 

KRAVL 

RENS 

EREM(40) 

GENT AG( 13) 

STRAM 

GENTAG( 10) 

H0JRE(9O) 

FIR KANT 

HERTIL 

FLYV 

HERTIL 

H0JRE(36O/13) 

SLUT 

FREM( 16) 

SLUT 

HERTIL 

Nu har maskinen laert ordet 

H0JRE(36O/13) 


SLUT 

VIFTE. Prov at skrive! 

KRAVL 



VIFTE, 

STRAM 




HERTIL 




SLUT 
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Manelokomotiv 


Det lyder noget science- 
fiction-agtig, og det er det og- 
s6, Kunne du tcenke dig at 
vcere lokomotivt0ier p& M&- 
nen, den dag Tjasreborg, Spi¬ 
es og DSB tdr lagt en jembane 
pd tvaers af trabanten? 

1 dette Commodore 64 spil fdr 
du lejlighed til at lege loko- 
motivlorer, og arbejdet er 
mindst lige sd kiaevende og 
farligt som i de gode gamle 
Western-dage med overlaid 
og indianerangreb. 

Pd Mdnen er det blot UFO'er 
og miner, som voider dig be- 
svoer Nogle torsvarsmulighe- 
der bar du dog, Du kan hop- 
pe med H-tasten og skyde 
fjender ned med SPACE. 

Kurt Andersen 

2 GOT0M00 



5 LV-54296:LW-54276:LF-54272:hT‘54273'R3-54277:$3-54270:PH-34273■PL-34274:PQ= 
20 V-5324 8 ■ SP-1053:L-123 : LI *53 = TR-1-KM. 08 = N-L30- BP-3600 
36 F0KEV+4fl>i:P0l<eV+39,7:PQKE6»i235 


340 POKEV+GjHPOKEV+M73 
330 PO-PO+L00-COTO033 

1600 print '' m m m smmm 

1010 GETA*IFA*«"”THEN1010 


ML DU PR0VE I GEN <J/NV’ 


40 POKE2040,13■P0KE2641,13:PQKE2042,11■P0KE2843,11:GQSUB4000 

30 FGRR-0TG62■READS:P0KEB32+A,E:NEXT 
60 F0RR-&T062:READB ; P0KE968+R,B : NEXT 
70 F0RR-BTQ62 ; RE8DB ! PQKE704+A,3:NEXT 
S6 PQKEV+23,3 : PQKEV+29* 3 

36 DRTftS,147,100,17,37,100, 34,73,100,68,143,100 

31 ERTH137,43,100,244,103,100,34,73,108,244,103,100,68,143,100,244,103,100 

32 DFITR68,143,100, 34,75,160,17,37,100,8,147,100, -1 

100 BtiTfl0,0,0,0,0,0,0,0,0,3, a,0;3;Q,0,3,0,16,3,0,56,3,34,56,3,119,124,11,235,253 

110 DrtT83l,255,233,5l,83 

120 PflTfl47,31,235,63,63,253,255,97,225,223,284,204,284,30,30,30,59,59,39,55,53 
130 HflTflS3,38,30,30,12,12,12 

140 DRTR2,0,8,1,8,8,2,0,0,1,8,8,2,0,0,1,0,8,2,0,0,1,8,0,2,0-0,1,0,0,2,0,8,1,0,0 

150 DRTR2,0,0,1,8,8,2,0,0,1,0,0,2,0,0,1,0,0,2,0,0,1,8,0,2,0,0 

160 D8TP0,4,128,0,5,6,0,10,0,0,12,0,0,24,0,0,24,0,0*255,8*3,235,192,6,102,96 

170 DRTH30,102,120,255,255, 253,235,253,253,63,126,252,31,129,248,13,253,240,7 

180 DPTP255,224,3,253,192,0,235,0,0,219,8,i,133,120,1,133,128 

430 Pfl£HT H BMtVtirflVK SPACE F0P START" 

440 GETft* IFfl*O h "THEN440 
450 G0SUB400O 
453 PRINT"3* 

460 POKEV+31,0 = POKE 1 V+21,13 

470 X-208: : PQ^EV*5j 60 : P0K£y»7,60 

480 " SCG ' 

490 GETfl* 

310 1Fftl*"H"THEWGOSUB980 

320 I PR*-" 3"THENQD8UB7B0 

330 IFRJ«"N"THENCGSUB730 

340 IFft*-" |F THENGGSUB880 

360 POKESP,32:SP-5P+TR:FQKESP,81 

370 IFSP^106ITHENPOKESP,32 : SP»lf24 

573 IFP6EKCV+9U-1THEN0OSUB2100 

380 >J+5 : L-L+3 : IFJ>255THEN>3 

390 IFL>233THENL-3 

600 Pt)KEV+4,T:P0KEV+6,L 

610 IFtf“ J THENP-J: G0SUB1200 

620 lFN-LTHEHP-L'G0Smi2&0 

630 IFJ-130flNDL*130THENL-0 

698 0OTO490 

706 X-X-7 

718 IF>K23THENX-25 

720 OQTO760 

730 K-X+7:IFX2253THENX-235 : GOT076C 


1020 I FR$=s" J" THENF0KEV+21,0:GOTO430 
1030 IFA$="N"7HENSVS65126 
1040 GQTO1010 
1286 GGSUB2260 
1205 POKEV+2* P-1 : FOKEV+3,06 
1210 P0KEV+2J,13 
1228 FORA*0TO280 NEXT 
1230 POKEV+3*117 
1248 FORA*8TQ20@■NEXT 
1230 POKEV+3*154 

1260 1 FP>X-13RWDP<X+36THEN0G$UB2188 
1270 POKEV+21,13 
1290 RETURN 

1300 PRINT 'JtCWMDflWJCKDCW 1 TPB^ ‘'V /" 

1310 PRINT : PRINTTAB< 17V'-RflflT”" 

1320 PRINT :PflINTTftBU7>V V F 
1330 FORA=0TO400:NEXT 
1340 PRINT" JOTtMCCIQtrSDC ' TRB (17) " 

1350 PRINT: PRJNTTRBC17?“ w 

1368 PRINT:RRINTTflBC17)” 

1378 POKEV+21,13:POKESP*32 = SP-1861=POKESP,81 PCWEV+31,0 
1308 LI-LI-1 1 POKE 1382, LI 
13S5 IFLI-48THEN1307 

1386 RETURN 

1387 IFPOMIT jCMI-PO^^^^^^ 

1390 P0-0 r LI -53 TRM ■ GOTO 1080 

1400 BG-<PO#<LIH8) )/2 : IFFP- 11000THEN&PM0000: Tft=2 
1403 IFBP-3 80BTNENBP-1180 8 

2010 FQRA-0T05 : POKELV,15 : POKELW,83'P0K£LS,13:POKEHF,16’POKELF,47■NEXT 

2820 POKELW,0'PGKELS,6 

2038 Q-0+1 : PRINT |r n 

2040 IFO20THENG-G: GOT 02050 

2043 GOTO14I0 

2650 P0-B0+P0 LI*53■POKESP,32 -SP^1854■3aTO630 

2100 FORA- 15TO0STEP-1 : POKELV, R: POKELtJ, 129 ■ PCKELS, 13 POKEHF, 16: POKELF, 47: NEXT 
2110 POKELW,0 -POKELS,6 
2120 GOTO1300 

2200 FORA-ST013-POKELV,15:FQKELU,129:POKEHF,40:POKELF, 200 : POKER3*15:NEXT 
2220 POKEW2,0:POKELV ,0 
2230 RETURN 

2300 FORR-0TD20: POKELV, 13 - POKELUI, 33:POKEHF, 40: POKELF,200 = POKERS, 13: NEXT 
2310 POKELU,0:POKELV,0 
2320 RETURN 



760 POKEV+0 j X : POKEV+1,V 

770 RETURN 

600 GOSUB22G0 

005 POKEV+2,X : POKEV+3,V-37 

010 POKEV+2M5 

015 FORC-0TO200 : NEXT 

020 POKEV+2,X : POKEV+3,V-74 

623 FCRt>0TO200:NEXT 

030 POKEV+3,V-lll 

031 IFX>J- L7AMI)HO+i3TH6NK-j ' J=0: PO-PO+100: IPPO=BPTNEN1408 

8 32 1FXM-17fiNDM<L+13THENH-L: L*0 ; P0 -P0+100 

634 POKEV+2M5 

035 FDRC-0TO200 : NEXT 

840 POKEV+3,V-140 

645 FORC»=0TO200 : NEXT 

358 POKEV+3,V-37:POKEV+2l,I3 

355 PRINT' PIHHMM»»»FC INTS : ,r ; P0' POKE 1982,U 

360 IFPO-SPTHEN1400 

370 RETURN 

980 006UBe380 

90S POKEV+1,160 

907 IPPEEK<V+31)"1THENGQSUB21*8 
910 F"F-2 ; IFF<-80THEN930 
9151FX+F<23THENF-0:X=255:GOTO940 
920 POKEV+0,X+F-P0KEV+],160:G0T09I0 
930 X-K-80■F*0 


3000 P0KE33281,0■PDKES3280,7 

3010 PR I NT" rTDO® II K^\y \ H 

3020 PRINT "IMH I \ / \ / \ 1 r 

3030 PRINT 1l li»J fill II I I J S S" 

3040 PRINT "(Ml I I f \ / \ / I l lF 

3050 PRINT - •>!/ ^ \ W W / 

3060 PR I NT r ' Oi 11/ I \ /~V 9 

3070 PRINT "mil I lilt I r 

3080 PR I NT" Vftl II If L 7 1 _J 1 1 I" 

3890 PR I NT l (-\ I III I" 

3100 PRINT^KMWF y I / \ I / \ H 

3110 PRINT 11 IWWMMOU ER BLEVET LOKOMOTIVF0RER PAR" 

3120 PRINT"nMiiHRRNEN, BU SKVDER UFO''ERNE NED” 

3130 PPINT"J»«iWSPHCE 00 POPPER OVER STENENE VED' r 
3140 PftINT IF »MMPT TR'VKKE TR3TEH H." 

3150 G0T05 

4000 POKELV,15:PQKEA3,9:POKEPH,15:PQKEPL,15-PCKES3,0:RESTORE 

4010 REflDH3-IFH3s-lTHEHRETURN 

4820 RERDL3:REPDD3 

4030 POKEHF,H3-POKELF,L3:F0KELW,33 

4040 F0RR £ 1T0E3 : NEXT:P0KELN, 32 

4 050 X-X+1■FORP-0TO50 = NEXT:0OT04610 

4051 DRTR6,147,180,17,37,108, 34,75,100,68,149,100 

4052 DATR137,43,180,244, 163, 100,34,75,106,244,103,100,68,149, 100,244,103,100 

4053 DRTR68,145,106,24.73 ^100 -17,37,180,8,147,160, -1, -1 -1 
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Dette UFO FLIGHT program 
minder meget om de "Cave 
Run", "Canyon" og "Tunnel 
Flight 11 1 som i sin tid blev trem- 
stillet til den gamle PET-Com- 
modore og CBM-4032. Blot 
har denne Commodore-64 
udgave naturligvis bdde far- 
ver, 1yd og sprites (bevcegelig 
gratik). Programmet er meget 
Hot og ligger belt pd hojde 
med dem, du kan kebe teen 
dige til Commodore 64. 

Din opgave lyder pd at flyve 
UFO'en ned gennem en uen- 
delig lang og bugtet tunnel, 
hvor du ikke md ramme si- 
deme. Programmet giver dig 
5 sveerhedsgrader og 3 
UFO'er at arbejde med, sd du 
idr hoenderne tulde, hvis du 
vil slippe levende igennem 
tunnellen. 

Programmet er bygget over 
en randomize tunktion og en 
maskinkode subrutine, som 
loeser joystick-signalet og £lyt- 
ter spriten, SpiUet er selvfor- 
klarende og burde derfor ik- 
ke volde vanskeligheder. 

Peter Brovil 


2 REM*# UFO FLIGHT ** SEPTEMBER ** 

3 ren**##*##*#*#*# # # *#**#*#*#***#*####* 

4 REM** <C> PETER BROVIL * 66-425225 ** 

5 REM***##***** ******** **************** 

6 REM 

7 RRI NTCHR* < 8 > : POKE 13*4036+33, Q POKE 1 3*4336+ 32,6 • PCKE53263, 0 : T U* G ■ G OSU B119 
e GOT022 

9 SVS(43400> 

10 IF PEEK CSP+1>^50THENF0KE3P+1 >53 

11 IFPEEK <SR+15 >230THENPQKESP+1.230 

12 IF PEEK 15324S+31 > = 1THEN7S 

13 IFNOl THENV-INT<RNLC0>#2> 

14 IFV-0THENFlI="^"+C$+ 11 W GDTDlG 

15 fi*="3 WW "+C*+" 3TW" 

1 £ IFV-1 0NBP* 1 THENX*X- \ 

17 IFV=00NBP=0THEHX=X+I 

13 PRINTTflBQOfir p^ N=0 n=mi 
13 iFX<2THEMV=0'M-l : G0T03 

20 IFX>211HEWV-1 : N=I:GOTO? 

21 GOTO* 

22 FOPI-371T0035■POKE1,0 NEXT : FORI-332TC870 = RERBA POKE1 ,ft NEXT-3P=53243 

23 POKE2340,13:POKESF+39,g:POKESP+29,i 

24 POKESP +32,0:POKESP+33,0:F0KESP+ 23,0 

25 BfiTfl152,5£,6,192,124,6,132,254,6,132,176,6,133,171-6 

26 DRTfi207, 255, 230,237, 255, 230, 255, 35, 254 

27 D0T825S,85,254,207,255,233,207,255,230,132,234,6,132,124,6 
23 FORI*1T0101■READA : PQKE43151+1,A'NEXT 

29 FORI=734T076S:POKEI,INT CRND< 0J *22&;> ; NEXT I 

30 FOR I-1T013 : READA : PDKE49399+I, Fi: NEXT 

31 FORC-0TO15:RERBB : POKE8#4096+1+C,B : NEXTC■GQT033 

32 DftTFH?3,e,220,74,176,3,20£, 1,208,74, 176,3,238,1,268,74,176,38,173 

33 BRTFI0,203,208, 15, 173, 16,206,41,1,204,12,173, 16,208,41,254,141, 16 

34 DftTR200,206,0,208,36,173,16,208,5,1,162,63,141,lS,208,142,0 - 203 - 36 

35 BATA74,176,32,238,6,208,240,20,173,16,208,41,1,240,20,163,64,205 

36 DRTR0,20S,208,13,173,16,208,41,254,162,6,141,16, 208,142,0,208,36 

37 DRTR173,16,208,3,1,141,16,208,36 

30-DATft32,0,132,32,0,132,32,0,132,32,0,132.36,32,0,132,76,5,133 
33 PR INT" $11 wF 3 ■ T? ^ I ISidf lb«*" SP-53248 

40 PRINT"I ait^l ZiEm 3^1 11 3, | nfi| 1 11 

41 PRINT'S" I2I2I"E I Si "sw I I 1' 

42 POKE SP,250 : P0KESP+1,75:F »0::POKESP+21,1 

43 PR INI "JSC?—-—-—. . .■-" 

44 PRINT"n_____ _ ■ _._ 

45 PR I NT"9 TUNNEL - BPEBDE : " 

46 PRIHT lh ;0fi____" 

47 PRINT"a 1 : MEGET 3MAL " 

48 PRINT lp ^_" 

43 PRINTS 2 : SMfiL 

50 PRINT 1 ' ... , . " 

51 PRINT"S 3 MIEEEL 

52 PR TNT" - -- . _ . . - ■’ 

53 PRINT"S 4 BRED 

54 PRINT"... .. * 

55 PRINT”a 5 ■ HEGET BRED " 

56 PRINT"ME3_---- -- 

57 PR1HT"M PNGIV HUMMER 1" 

58 GETR* : IFRf*""THEH5B 

S3 IFVHL<R*X10RVFlL<FlI»5THEN59 

60 $S*VAL<Af>■POKESP,170 P0KESP+1,58 

61 IFTU=0THENGOSUB133 

62 pr i nt " aww wwCTwmimmaj ^ a w ■ ■ pokes?+ 1, se =pokesp , 170 : pokesp 

+21.1 

63 F0RT=1TG15 

64 PRIHTTR®C16> H, a " 

65 NEXTT : X*15 

66 PRINT'W i 3 - - . , , , T ...t' 

6? IFF=1THEN72 , 

60 priht": i i li uminaaiPiHMtiiiaMik trvk pah 

63 PRINT"a KNflPPEK t)linMI»t»MWI : TLNTU+l 

76 IF-<<PEEK ( 563265RND16>*0)TH£NF=1■C0T062 

71 GOTO70 

72 IFS8=1THENC t = " "-X“15 


73 IP08-2THENC*-" " : X=14 

74 rF0S-3THENC$-' r "X=14 

75 IFSS-4THENC*=" " : K=l3 

76 IFOS^STHEHC # =" " :X*13 

77 POKE138,0 : FORT = 1TCS:P0KE33240 + 31,0:n E ^ TT;&0T 

78 V=54236: W=5427€ : fi=54277: H=S42?3 L=542?2 ■ p*tft-1 

73 F0R0=1T010:P0KE3P+33,2 : GOGUB131 ; POKESP+33,7 : G0SUB131 : POKESP+33,14 

80 Q0SUB131 : HEXTO ■ PQKEOP+33- 8:FOKE2040,11 

81 FORK-1 STO^TEF^ 1 POKEV, X P0KEP, 123 POKER, 15 POKEH, 43 P0KEL, 200 

82 FORT^lTQS0 ; NEXT'POKESP+33,PEEK(S*4036+1+K> : NEXT POKE3P+2S,1 

83 FORK-15TQ0STEP-1■P0KEV,X■PQKEP,123:POKER,15 POKEH,43:PDKEL,200 

84 FORT-1T050 : NEXT : PQKESP +33 - PEEK C8*4036+1+X > NEXT 
05 POKEN.0 POKEP,0 P0KEV,0 POKE204O.13’PQKESP+23,0 
86 1FTO =3THEN3S 

37 PRINT" Tl" : POKES?+1,75:ROKESP.250:POKESP+33,S 
SO PRINT"*WraHm«—-- 


32 PRINT"13_ 


"-Ml=STRi«:NJ+ HI 
: i", 


00 PR I NT "133 EU ER INETILVIEERE NfiflET 
31 FCRS-1TOLEN <M#J PRINT" ^LJS", HEXTS ' FORS-1TOLEN C H* J : PR I NT" II" j : NEXT: Pft 1 NT" 3" m 

92 PRINT" 3U._-- _" ■ SK*3-T U : UF$^" 3 UFO ‘ ER" 

33 IPSK-1THENLIE t = " 3 UFOn" +CHR$ ( 20 5 +CHR* < 20 > *C NR* C 20) +'" J43H30 lp 
04 PR I NT "3 EU HRR"SK f, li"UF*, " TILERGE* " 

35 PPlNT n riSDO-■ ■ ■ ■ - - - —.-.— 

06 FGRZZ*1TG7:POKESP+21-O : FORXX^1TQ200 = NEXT XX:POKESF+21.1=F0RXX-1T 0200 = NEXT =NEX T 
37 F-0 : POKESP+33,8 : G0T062 

08 PRINT-31" POKESP+1■75■POKESP,250 : POKESP+33,8 

93 PRINT"4WWMW1-—-—-—--" 

100 FRINT";U 


101 PR I NT "133 BU NRNEDE IHLT ' ■" j : M*»STR*<Mi +" PI " 

182 P0R£= 1 TOLEN : PRINT" TLX” i ■ NEXTS : F0RS= 1TQLEN “PRINT" II" ■ 

103 PRINT" .,... . _" 

104 PRINT" a TUNNEL EREDDE ' "SS" 113 " 

105 PRINT "1M--—-—- 

106 PRINT"_ " 

107 PRINT"3 RNOIV VftLG " 

108 PRINT": a _ _ _ . " 

100 PRINT" Hi 1 : STOP 

110 PRINT"____■ ■ ■ 

111 PRINT"3 2 

112 PRINT' IL, 


NEXT : PRINT"3"M* 


RE-RUN NED SHTtlE TUNNEL BREEBE 


113 PRINT"3 3 : RE-RUN 

114 SETHI:IF0$^""THEN114 

115 IFRI-" 1" THENPR INT ,l ^i" : POKE 13*4006+33,7 - POKE 13*4006+32, 14: POKESP+21,0 : END 

116 1 FHIi= " 2 " THENM= 0 : TU“0 ; F^O ■ G0T062 

117 3FRI="^ , 'THENM-0: TU=0 F=0 : G0T030 

118 G0T0114 

no print ■■ aaiiaiieffliiffli ^^ hde bv 

120 PRINT" WUlUmiWIJJ ar—v 


K Ml IIII 
llllllllll 
t/VIlim 
K K E ll I I I 

Hi II IN LI 
kllUklL 


122 PRINT "SRRRrei 

123 PRINT"TT21?32ra5l5easnrS»Sl V 

124 p? i h 7 ■■ gaa y aw r ar?ft r swa i 

125 RRiNr i Ma mMMga \ 

127 PRINT" r —----—- 

128 PRINT "WlSlffiH JOV-STICK 1 CONTROL-FORT 2 1“ 

123 PRlNT"35J3f3BI L ------ 

130 F0RW“1TO500 ; NEXT : RETURN 

131 FORG=1 TO10:HEX TO■RE TURN 

132 DHTR0,0,0,0,2,2,5,5-10,10,8,8,7,15,15-1 

183 PRINT"^":P0KESP+1,5S-POKESP,250:POKESP+33,8 

134 RRINT J, lDran---- - -- 

135 PRINT"!!— 


136 PRINT"3 EU BEF1NEER BIG PRH METER-PUNKT 

137 PRINT"___ 

138 PRINT"3 EU H8R 3 UFO^ER TIL RRRSIGHED " 

139 PRINT’MMn- - ■ - 

140 PRINT"«ra^ ^ m^ ff —* 

141 PRINT"TOI -rl I I I I 1 I l-K 

142 PRINT'S^ 

143 PRINT"«n- 


144 FORT^1TO 3500:NEXT = RETURN 
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0010 

ENABLE f*il 

0720 

WHEN 12 

0020 

// Copyright (cl by La te Christensen, Hi 1lerod* Version 1, 

0730 

PRINT i*;" Vi1 du slette el teh*t pA Bkermen (J/N) 7 

0030 

1 ins =201 +60, pos: — 1 ■ point = 1 

0740 

IF GET*(5,1) IN “Ji" THEN text*<pointipoint+1999)"; posi 

0040 

DIM text* OP lin,fiInavn* Of I5,tegn* OF I, find* OF 60,it OF l.tont OF 60 

0750 

WHEN 6 

0050 

text*£l: 1 in) SCREEN*""* i*i=CHR*( 144) ; tow* (1 (SOI t«" 11 

0760 

PRINT i* ; lh Find i " 

0060 

CLOSE 

0770 

PRINT find*;CHR*(30) 

0070 

MARSIN 0 

0730 

INPUT AT(I„2); find* 

ooao 

ZONE 0 

0790 

X(»find* IN text *(pos+pbint 1 1in) 

0090 

OPEN FILE 5, ''keyboard", READ 

0300 

If x»0 THEN 

0100 

REPEAT 

0610 

PRINT CHR*(7); 

0110 

Kl«=(po*-l> MOO 60+1; yt»(pos-lJ DIV 60+1 

0320 

ELSE 

0120 

REPEAT 

0830 

EXEC flyt(x+pos+point-1) 

0130 

IF posd OR pos)2000 THEN EKEC scroll y 

0640 

END IF 

0140 

PRINT AT(x,yl; 

0650 

WHEN 23 

0150 

tegn*:=GET*(5, 1); ok l-" ■' <*tegn* AND tegn*<="d" 

0S60 

PRINT i*;CHR*(l2) 

0160 

IF ok THEN SCREEN*(pos*)l"t*gn*; poil“pOft+l; Xi=x+1^60+( x=60) ; y=-y+l+( 

0670 

MOUNT 1 

X*l> 


0030 

DIR 

0170 

UNTIL NOT ok 

0390 

PRINT 

oiao 

CASE ORDitegn*) OF 

0900 

PRINT "Write. " 

0190 

uhEN 26 

0910 

PRINT " Indtast tekstnavn ' “ ; 

0200 

pos 1 ■ pOS-60 

0920 

INPUT filnavn* 

0210 

WHEN lO 

0930 

IF filnavn* (> "'■ THEN 

0220 

posi=pos+60 

0940 

DELETE filnavn* 

0230 

WHEN a 

0950 

OPEN FILE 1,filnavn*, WRITE 

0240 

po*f a pos-l 

0960 

PRINT FILE It text* ( 1;nax+79); 

0250 

WHEN 24 

0970 

CLOSE FILE 1 

0260 

' pOEI*pD5+l 

0960 

END IF 

0270 

WHEN 20 

0990 

WHEN 13 

0260 

PO*»*P*>E+10 

10O0 

MOUNT 1 

0290 

WHEN 13 

ioio 

PRINT i* ; CHR*(12) 

0300 

poll-1(pos-15 DlV 601*60+61 

1020 

DIR 

0310 

WHEN 30 

1030 

PRINT 

0320 

SCREEN*(pos i ((pos-1) D IV 60 1 *60 +60 > *« ” “ 

1040 

PRINT "Read. " 

0330 

WHEN 31 

1050 

PRINT "Indtast tekstnavn * 

0340 

SCREEN* ( po* 1 20001 i - ” 11 

1060 

INPUT filnavn* 

0350 

WHEN 9 

1070 

OPEN FILE l, filnavn*, READ 

0360 

X [-((pos-l> DIV 60+1)*60: SCREEN*(po S ;x> i»" "-SCREEN* t pee :x> 

1060 

postal ; point : —1 

0370 

WHEN 5 

1090 

FOR x1*1 TO lin/aO DO 

033f 

xt»<(pc»-l> DIV 80+1) *60; SCREEN* (postxM-SCREEN*<pot-1 *(postx) :«) 

1100 

IF EOF (1) THEN 

0390 

WHEN 127 

itro 

text *( x+30“7911 in) h in 

0400 

pos : -pos-1 

1120 

ELSE 

0410 

IF pos (1 THEN EXEC scroll 

1130 

text * ( k* 30»79ix*60)l"SET* ( 1 , 60> 

0420 

SCREEN*(post) [ SO¬ 

1140 

END IF 

0430 

OTHE HWISE 

1150 

NEXT x 

0440 

EXEC special 

1 160 

CLOSE FILE I 

0450 

endcase 

1170 

WHEN 16,3 

0460 

UNTIL FALSE 

1 130 

PRINT i* ; 

0470 

PRDC special 

1190 

off)ine:-FALSE; yi-point+((pos^l) DlV 60)*60; til:=max+79 

04 SO 

text*(point : point+1999):=5CREEN* 

1200 

PRINT 11 Printudskriften afbrydes «ed et tryk p£ en tast. " 

0490 

PRINT AT (1,1);CHR*(3Q1 ; ATi 79, 1 ) ;CHR* ( 271+CHR* (] 23 )* 

1210 

SELECT OUTPUT " print 

0500 

PRINT AT ( 1,11;CHR* I 27 1; 

1220 

IF NOT offline THEN 

0510 

CASE ORD(tegn* ) OF 

1230 

IF t*gnt ■ CHR*(16) THEN 

0520 

WHEN 27 

1240 

FOR Xl-y TO til STEP 60 DO 

0530 

PRINT i*;"' Gkal programmet steppes ( j/n) ? 11 ; 

1250 

PRINT text* £ x ; x+79) 

0540 

IF SET*(5,1) IN ''Jj H THEN STOP 

1260 

IF KEY* () CHR*(0> THEN xi“lin 

0550 

WHEN 1 

1270 

IF i(y—x ) DIV ao-l) HDD 64=0 THEN 

0560 

if pos-i and point*i then 

1260 

FOR til'-l TO 6 DO PRINT 

0570 

EXEC flyt <n>*x) 

1290 

END IF 

0560 

ELSE 

1300 

NEXT x 

0590 

EXEC flyt <1> 

1310 

ELSE 

0600 

END IF 

1320 

FOR x :— point TO pcint+1920 STEP 30 DO 

0610 

WHEN 26 

1330 

PRINT, text* ( x £ X+79) 

0620 

IF pO»+point<*1in THEN 

1340 

IF KEY* () CHR*(0) THEN Kl-lin 

0630 

text* ( pos+point - 1 in) : —text* ( pos+poi nt — 111 in) ; text* ( p&S+pOint— 15)!— 

1350 

NEXT x 

0640 

END IF 

1360 

END IF 

0650 

WHEN 29 

1370 

SELECT OUTPUT "cones!*" 

0660 

IF pos+poinrt (-1 in THEN 

1360 

ELSE 

0670 

t ext *( pos +po i nt — 1 1 1 in) i =t e xt *( pos +po i nt ; 1 i n) 

1390 

select our Pur "console" 

0660 

END IF 

1400 

PRINT CHR*(7) : 

0690 

WHEN 19 

1410 

ENDIF 

0700 

PRINT it;' 1 Linie t M s ( poi nt+pos-l ) DIV 60+1, 

1420 

WHEN 25 

0710 

PRINT % UP #f ", I in/ 1 60, ", Tryk en tast. " ;GEt* (S T I) 
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14 30 
1440 
1450 
1460 
1470 
1430 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1560 
1590 
1600 
1610 
3 620 
1630 
1640 
1650 
1660 
1670 
1660 
1690 
1700 
1710 
1720 
1730 
1740 
1730 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1830 
1860 
Jft70 

iaso 

1890 

9) 

1900 
1910 
1920 
1930 
1940 
1950 
1960 
197$ 
1930 
1990 
2000 
20 FD 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 



■ Skriver du tit officielle bre¬ 
ve? Laver du tit skriftlige op- 
gaver, hvor del krceves at der 
afleveres maskinskrevet? Eller 
kan du bare godt llde at dine 
opgaver bliver afleveret pb 
en paen mdde? 

Sd er dette Piccoloprogram 
det rigtige til dig. med en 
tekstbehandling kan du pb 
en let mbde skrive dine tek- 
ster med en kvalitet, der er 
h 0 jere end den, man normal! 
opndr med en skrivemaski- 


ne. 

Under selve indtastningen 
skriver du bare 10 $ uden de 


store tanker om, hvordan det 


EKEC flytlpcB + po*vit-9&l) 

WHEN 22 

E XEC f 1 y t (pon+po i nt +959 > 

WHEN 2 

PRINT i*;" HvCifntftMg* lini**' *h*l mdsettes/(slettes(-)) ? " 

REPEAT 

bad inputs-FALSE 
INPUT AT(49, 1)1 y 
UNTIL NOT bad input 
y["pow+point-i; yl-y*80 
IF y(>0 THEN 
IF y <0 THEN 

IF K-y Uin THEN 

t« : 1 in) i “tentft K“yj 1 in) 

ELSE 

PRINT CHR*(7>J 
ENDIF 
ELSE 

IF xUin-80 AND x+ytlin THEN 

x+y t lin) : =rteyt* (x *1»n) ; taut* (x • x+y-l) t- ,M * 

ELSE 

PRINT CHR*(7); 

ENDIF 
END IF 
END IF 

WHEN 4 if P 

y:-pc5+point-l; xt-t(y-l) DlV 80)+80+81 
WHILE tent*(y;> —“ " AND y<« DD yi-y+i 
t*Mt*(x*l£n)t-tantffyilin)| post-pos+60 
IF y(y THEN text*(y*y-1>*- M “ 

IF taxt*iy-l *> <> “ " THEN ta*t* (yi) t 
OTHERWISE 
ENDORSE 

SCREEN**=teHt*(point:point+1999) 

ENDPROC special 
PRDC scroll 

IF pb«)2000 THEN 
pp»i=pok-80 
IF point<1in-1999 THEN 

taxt*(point!point +79)*-SCREEN*; SCREEN*(1i1920)i-SCREEN*(8112000) 
SCREEN*(1921:2000) t-text*(point+20001point+2079); pp*nt t«point+80 
END IF 
ELSE 


egentlig kommer til at se ud. 
Ndr det er gjort kan du i ro og 
mag sidde og xette pd iek- 
sten. 

Du kan f.eks, lave paene af- 
snlt og en lige h0jre margin. 
Mens du pd en almindelig 
skrivemaskine brugte fjumre- 
vaeske i spandevis, retier du, 
med et tekstbehandlingspro- 
gram, dine tejl lige sd let som 
du lavede dem. Dette viste 
program kan kore pd en PIC¬ 
COLO med RcComalSO 
(CP/M), 

Som f0r ncevnt skrives al tekst 
ved bare at skrive 10 s, Ud 
over det kan alle PICCO¬ 
LO 'ens redigeringstaster an- 
vendes. Det vil sige cursorpi- 
lene, return, rub out insert, 
delete samt clear. 

Desuden findes der en del 
andre funktioner, som aktive- 


po«t-po*+80 
IF point)1 THEN 

point!-pOint-80; taxt*(point+2000*point+2079)*-SCREEN*U921:2000) 
SCREEN*(81*2000)*-SCREEN*U* 1920); SCREEN*(1180)t-teat*(point:point+7 

END IF 
END IF 

K f- (po*-l) MOD 80+1; yi-(poa-l) DIW BO+J. 

END PRDC scroll 
PROC flyt(til) 

IF til (1 THEN tili-1 
IF til)lin THEN tils-Lin-79 
point*-((til-880) DIV 80)*80+1 
IF point<1 THEN pointi-1 
IF point)1in-1999 THEN pointi-lin-1999 
po*(-ti1-point +1 
ENDPROC flyt 
PROC f*jl HANDLER 
CASE ERR DF 
WHEN 100 

bad input * —TRUE; f L 1 navnH -“ ■* 

CONTINUE 
WHEN 211 

offl ins H-TfiUE 
CQNTINUE 
WHEN 107, 118 
bad input t-TRUE 
CDNTINUE 
WHEN 208 
MOUNT 1 
RETRY 
WHEN 214 
PRINT 

IF f i lnavn* <> “ " THEN PRINT ^Findas ikke F T ryk pA en tast + 11 j GET* (5, 1) 
SCREEN*i-tewt*(point * point + 1999) 

RETURN 

OTHERWISE 

PRINT OHR* (12);''Fatal fajl opmtftet. Programmet stoppet." 

PRINT “Fa j I an her nwtr " > ERR, ,f > ,, | 

IF ERR)200 THEN PRINT "Di*k*tta tiler Print#r-f*il !" 

PRINT " eg er opstAet i 1 ini a ",SYS(2),", w 
STOP 
CONTINUE 
ENDCfiSE 
ENDPROC Fajl 
FUNC may 
x ’ “1 in-^79 


res ved at holde CTRL-tasten 
nede samtidig med at man 
trykker pd den tast der voel- 
ger funktionen. Disse er f0l- 
gende: 

1 sletter teksten linien ud. 
rubout sletter teksten fra cur- 
sorpositionen og resten ai 
skeermen. 

A anbringer cursoren aller- 
fonest i teksten. Hvis den 
allerede stod der, vil den 
blive anbragt tilsidst i tek¬ 
sten 

S (status) lortceller hvilken li- 
nie cursoren stdr pd, samt 
hvormange linier der er 
ialt. 

F (tind) bruges til at linde et 
bestemt ord. Man indtasier 
det s 0 gte ord, og cursoren 
vil blive flyttet til den fprste 
torekomst a! ordet. Hvis det 
ikke findes ibr man et 
beep i stedet for 


WHILE text*( k lw+79)-tom* AND k>1 DO m(-k-60 
RETURN k 


ENDFUNC miM 


W(write) gemmer teksten pd 
disketten til sen ere brug. 
Man skal bare indtaste 
del 0nskede navn. 

R (read) lceser en tekst fra 
disketten. 

V flytter cursoren 12 linier 
laengere trem i teksten. 

Y flytter den tilsvarende iil- 
bage. 

B bruges til at indsaette eller 
slette hele linier. Man ind- 
taster antallet af linier; po- 
sitivt tal hvis man vil ind¬ 
saette, negafivt hvis man 
vil slette, 

P (printer) udskriver teksten 
fra cursorpositionen til siut- 
ningen pd printeren. Man 
kan stoppe udskriften i uti- 
de ved ai trykke pd en 
tast. Hvis printeren ikke er 
klar fbr man et beep, 

C (copy) kopierer skcermbil- 
ledet over pd printeren, 

0 indscetter et mellemmm i 
hele teksten (Som insert). 

A sletter en karakter i hele 
teksten. (Som delete). 

D (del) deler en linie. Dvs at 
al tekst efter cursoren bli¬ 
ver smidt ned pd nceste li¬ 
nie. Hvis den stdr midt i et 
ord, vil der blive sat en 
bindestreg, Derefter vil 
cursoren rykke en iinie 
ned. Brugen af denne 
funktion er en effekliv mb¬ 
de at lave lige h 0 jremar- 
gen pd. 

Endelig er der ESC der stopper 
programmet. Den sp 0 rger 
dog iige f0rst. 

Programmet er, sdvidt det nu 
har veeret muligt, sikret mod 
fejl. Men det kan dog godt 
ske at programmet stopper 
alligevel. Man kan sd pr0ve 
at skrive CON nogle gange, 
men hvis man bliver ved 
med at fd den samme fejl, er 
der ikke noget at g0re. Tek¬ 
sten er tabt. Hvis man Idr be- 
skeden 'Diskette fejl' b0r man 
indscette en anden diskette. 
CON virker i0vrigt ogsd, hvis 
man har stoppel programmet 
ved et uheld. 

Tilbage er sd kun at sige at 
tekstbehandling er et virkeligt 
effektivt voerkt0j, specielt ndr 
man har sat sig ordentlig ind 
i det. Jeg ved ihvertfald med 
mig selv at jeg nu kan skrive 
stile ind pd den halve tid, og 
med et dobbelt sd pceni re- 
sultatHD 

Lars Christensen 
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Gun 

fight 


Her fdr du din belt store ud- 
tordring i Guniight, hvor du 
skal skyde en berygtet bandit 
tra Mexico. 

Programmet bar 10 svaer- 
hedsgrader, og du tdr svaert 
ved at skyde modstanderen i 
grad 10. 

Indtast l0rst program 0 og run 
det. Derefter tndtaster du pro¬ 
gram l. Save programmet 
med ' GOTO 9998 

Claus Brock 

I REtt Progr am 1 

10 LET FOR n=U$R ,l ft w TO USR "*"*1 

67 = REAP a: POKE n,o; lET : N£xT n ■ 

IF *0 11652 THEN PRINT FLASH liTEJL* 
E DATA ,r : STOP 

20 FOR 0=14^ TO 164: PRINT CHR* n\: NE 
XT o: PRINT FLASH ]* 5 TRYK PAA EN TAST 
NAAR DU ER KLAPTIL AT INDTASTE PROGRAM 2 
1 i PAUSE 0 L NEU 

30 DATA 0,16,56,56,56,56,124,0,0,112,2 
4B,112j112i32,112,120,116,119,116,88,76, 
60.68,102 

*0 DATA B,4?,47,47,63,32,32,32,J 6,244, 
244,244,252,4,4,4,0,3,4,0,8,8,8,B 

58 DATA 0,]92,32,16,16,J 6,16,16,0,232, 
0,0, 0,0,0:0,0,14:31,14,14,4,14,30 

60 DATA 46,238,46,26,50,34:34,102:24,2 
4,126,126,24,24,24,24,0:0,8,2B,2S,31,31, 
15 

70 DATA 32,112,112,112,112:240,240,242 
, 113, 1 IS, J'27, 127, 126, 112, 112: 112,0,0:0:0 
,0:0,135,255 

60 DATA 32,112,32,32,32,4,222,254,4,14 
,4,4,4,32,123,127,0,0,0,0,0,0,225,255 
30 DATA 0,60,30,126,60,36,60,0,0,1,0,0 
,63,127,127,127,120,132,128,126,254,255, 
255,255 


0>REfl Program 2 GUNF1GHT 
@ 1304 Claus Bvoch 

r 3 Din 4$U0, in: 03 11 at 103 : LET hi 9 h = 
\l 000 

V\ 5 PAPER 6: BORDER 6: ELS 
01 6 GO sue 3e3= PAPER 6 

Li 7 LET tid-250 s LET scb=0: LET d0db=0: 

7/lET $kudb^J0 

f 15 IF ScbXhigb THEN LET high=scb 

17 CLS : PRINT AT 0,0; INK 7\ PAPER 63 
INUERSE 1 1 "TINE=‘ 3 ; INUERSE 0;t',d;RT 0,9 
; INUERSE .11 ,r HlGH= H ‘1 INUERSE 0 1high 

20 FOR b = J 9 TO lBtd0db : PRINT AT 0,bj" 
S +, i NEXT b '■ PRINT AT 0,22; PAPER 2; INK 
6 ;"SCORE = "i: PRINT sob 

25 FOR n=1 TO INI (RND*3)+3 
30 LET kb=INT CRND*J2Jt2J LET ka^INT t 
RND*l9J+2 

35 PRINT AT k a,kb; INK 4j M lro";AT katl, 
Kb11 ;"n "j NEXT n 

40 FOR n = 1 TO INT tRND*3)+3: LET kb^IN 
T TRNO*121+17: LET k*=INT tRND*13+2): PR 
INT AT ka,kb; INK 4;”Lm";AT ka + 1, kb + j ; 33 n 
": NEXT n 

110 LET uo&n=lNT CRND*l93+2: LET 3 — 1 = 
LET pI a-INT tRND*|3)+2i l£7 p L b — J NT IRND 
*193+2= IF f>(b=pla THEN GO TO 110 

111 GO SUB 200: PRINT AT Pla,J] INK W' 1 

b 13 iAT pla+1,11”C" ;AT pIb,30i JNK ... 

T p lb + 1,30 1 11 j" 

112 PRINT AT p(a, 1; ;AT pla+l,lJ M " 

113 LET t J d=i 1 d —I = PRINT AT 0,5jtldj" J " 
: IF 1Jd(=0 OR d0db>=3 THEN GO TO 4e3 

115 LET pLa-pLa+CpLa<plb AND RND<zJ-TpI 
a7pib AND RND <z J 

125 PRINT AT INK lj'V iAT pU+1, 

I re 

127 GO SUB 200 

130 IF pla=plb +1 AND RNp<z OR pla=plb^2 
AND RND <2 OR pta=plb AND RND<z OP p U=p 
tb-J AND RND<z THEN GO SUB le3: IF relu 
rn-16 THEN GO TO return L 

134 PRINT AT p E b , 30;" 31 ;AT plb + ],30; 3 ■' 

135 LET ptb~plb+ClNKEY*='‘r AND P lb<20) 
-CINKETS = "0" and pI b>2J 

139 PRINT AT ptb,30; INK 2i ,p J H jAT plb + 1 
30i" j" 

140 IF INK£t$ = ,- <i " THEN GO Sue 1100: IF 
return=)5 THEN GO TO TetuTfi 

145 GO SUB 200: GO TO 112 

200 PRINT AT ^09**15;“ 3, ;AT 009 m-] »15» 

205 IF «josn=2ia THEN LET $=-] 

2 10 JF uogn-2 THEN l£T 9=1 
215 LET yogn=uogn+g 

220 PRINT AT yogn,j5; [NK 7]"lg"iAT vug 
n + J, 15i INK 0, de": RETURN 

1000 LET r tlLiTn-0 ’ IF RND>z THEN RETURN 

1015 BEEP 1 01 1 0! BEEP .001,50= BEEP .003 
f 0: BEEP .003, 25i FOR a-2 TO 23= IF SCRE 
EN* Cplatl THEN GO TO 1050 

1020 PRINT AT pUtl,aj ,, h w i FOR *“1 TO 0: 
NEXT x: PRINT AT pia+l,*; H : NEXT a 
1025 IF SCREEN* [p-l a+), 3GJ “ THEN GO T 
0 2*3 

1030 LET scb -scb+50 r PRINT AT pla+1,30;’ 1 
h" ; A f 0,28jscb: BEEP .01,50= PRINT AT P L 
a^l, 30 T *' : RETURN 

1050 PRINT AT p l a t j,ai" "1 SEEP ,01,50: 
RE TURN 

1100 LET Teturn-B 

1110 BEEP .01,0: BEEP .001,50: SEEP -003 
,0: BEEP ,003,25: FOR b=29 TO 2 STEP -1: 
EF SCREEN* (Plb*i,&)="" THEN GO TQ 115 


Ij 20 PRiNT AT p lb + 1 ,to ;"h" : FOR x=l TO 0: 

NEXT x= PRINT AT P Lbtl,b; ' : NEXT 0 

1125 JK SCREEN* (plb«-lj n- ,1,: THEN GO TO 
3000 

1130 PRINT AT p lb + 1,1 i"Vs BEEP .01,50: 
PRINT AT p lb + 1,1 I ' " : RETURN 
1150 PRINT AT p tb t ], b ; r ' i BEEP .01,50: 
RE TURN 

2000 LET a0db-d0db + J i PRINT AT plb,30; J- 
L| ;at r Ibi 1,30; r w 

2010 PRINT AT p Lb 1 ] , 30 ; INK 2; cp ' ;AT pt 
c,l; INK 1 3"i";AT pla+1,0; INK 7j"f"S IN 
k 1 ;" j " 

2020 FOR b -20 TO plb + 1 STEP -J: GO SUB 2 

00: PRINT AT b , 30 r tu " ;AT b + ]>30; ’de = P 

AUSE 5: GO SUB 260: PAUSE 5= PRINT AT b, 
30 r ; UAT b + 1,30, ; ODER J ;A1 P i*tl, 

0; [NK 7; ’ f": NEXT b 

2030 FOP b= P tb TO 2 STEP -1= GO SUB 200= 
PRINT AT b,30I r tu tf JAT b U , 30 i d*" = PADS 
E 5= GO SUB 200: PAUSE 5= PRINT AT b,301 
13 ; AT b + 1,30; ' ;AT p lb + 1 ,31 ; 'k ,3 ; OuE 

R 1 ;at pla + 1,0; INK 7i I : NEXT b 

2040 LET TQturn=l5: RETURN 
3000 LET $cb=icb < 250 : PRINT AT p!a,n" " 
!AT p la + J, 1 ; 1 13 

30J0 PRINT AT pla+1,0; INK ];"qr ,3 ;AT P lb 
,30; INK 21 b" ;AT p t b +1,30 ; "c 31 ; INK 7; ,, g 

3020 FOR fi-20 TO pla+1 STEP -1= GO SUB 2 
00: PRINT AT a,0r tu“ JAT a + 1,0; de 1 : PAU 
SE 5: GO SUB 200 f PAUSE 5= PRINT AT a, 01 
3 ,r ; AT at 1,05" "1 ODER J INK 7; AT plb 

tj ,31 : NEXT a 

3030 FOR a = *U TO 2 STEP - J : GO SUB 200: 

PRINT AT a , 0 ; " t u " ;AT PAUSE 

5 : GO SUB 200: PAUSE 5= PRINT AT a, 0; ” 

" ;AT a 1 1,0; ” I AT p l a + 1, J , ,r k " ; ODER J; 

INK 7 ;AT pI btl,31;" 9 " : NEXT a 

3040 LET T«tuTn=15: RETURN 

4000 RESTORE : FOR n=J TO ?■ READ Sen,lo 

fiiPAu : BEEP len,ton: FOR p= 0 TO pau: NEX 

t pi NEXT n: IF scb>hi 9 h THEN LET h(gh- 

scb 

4005 PRINT AT 0,14ihi 9 h;Al 11,11] PAPER 
7] FLASH l; BRIGHT 1 ; "GAHE ODER" 

4010 FOR a=Q TO 500= NEXT rt ■ GO TO 6000 
5000 DATA , 1,25,0, l en , J5,0, L*r>, 5,0, l*n , - 
5,0, Un ,5,0, Un, 15,0, left,25,0 
6000 CLS 

6030 FOR *=1 TO 10: ]F tcb<aCxJ THEN NE 
XT x i GO TO 6500 

6020 IF xO10 THEN FOR i=10 TO *+] STEP 
I : LET a*( i J=ai(3-JD t LET o[iT=aCi-l3- 
NEXT 1 

6030 INPUT " Indtasl d it navn : 33 ;aifx3: L 
ET aCjd^scb 

6500 CLS : PRINT AT 0,]4; INUERSE l;"TGP 
-10"! INUERSE 0iAT 2,5i"Naup:" ;AT 2,20; M 
Scor*:">>: FOR k-i TO J0: PRINT H ,l t TO 
2-LEN CSTR* k1) ;k;TAB 5;a*(kJ;TA0 20 ; "0 
000"C TO 4-LEN CSTR* aCkJJlJatkJi NEXT k 
65J 0 PRINT flli'Tryk P aa an tail for at s 
P i lie 1 ’ : PAUSE 0: CLS 1 GO SUB 3490: GO T 
0 7 

9000 PRINT AT 0,10; INK 2; PAPER Si'INST 
RUKTIQbT 

9001 PRINT : PRINT INK J ;" G 

UNFJGHT " 1 11 1 dolt* spi I 9 a* Id 

er tJ*i om at tkyde $ i r» aipds t ande r indan 

man blly#T skudt af ham."' 

9002 PRINT INK 2 ’"Du styrer op mod 
09 ned ruod'L'* Du skyder aiod 'O'* " 

9003 PRINT INK 3 J "Naar splllet starter 
&r du til h 0 jT* 09 skal saa skyde bam t 
i l yensti - * tnden ban skydet d i 9 * 13 

9004 PRINT INK 4 1 "Naar du enlen ef bley 
el skudl 3 9 ange eller tsden er I0he* ud 

■ stopper sp i I let * 13 

9100 FOR f = 1 TO 10: LET a* C f J-"Claus Rt 0 
ch <H ! LET at M = J 000 : NEXT f 
3490 PRINT '“Indiast sv«r beds gr ad 1~10" 
: INPUT z= IF z<i OP z>10 THEN BEEP 1,3 
53 GO TO 9490 

S500 LET 2-fzt 110-z 10 = RETURN 

9990 CLEAR : SAUE "gun fight" LINE 9993: 
SAUE ",l i ghtcode “CODE LtSR ,3 a",l68: UERJFY 
"> : UER1FT ""CODE i STOP 
3399 LOAD ,F f i gh t code "CODE USR "a": RUN 
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1 - A-ssaast-aagg j- 




Turborace 


Spillet er et racerbilspil, hvor 600 er der USR-definerbare 
du skal styre en lille toil rundt karakterer, hvor du sd indta- 
pd en bane. Du m6 ikke st0- ster bogstavet i giafikmode, 
de ind i kanten, og hvis du Dubrugertasteme6, 7, Bog9 





k0rei ind i en isklat, skridei du til at flytle bilen. 


Ilinie 10, 45, 510, 530, 580 oa 


10 LET o.$ = " Facdh I ie lbig M 
22 LET b* = "3232322]212.1 11 
30 LET c* = "211332222123" 

40 LET d* = " 8 8S.39 7&97 6S-76 68,8"' 

45 LET e*="ac Ihdqeb 1 ’ 

50 POKE 23624,7= PAPER 0: INK ? 

60 CLS 

70 LET o=0: GO SUB 1090 
80 FOR *=1 TO 8 

30 PRINT AT 3,8;"8ru9 Tasteme!" 

100 PRINT AT a+5j li;4*C4) i" —"id$Ca*3T; 
a$ta*3*l 1 J<j*(a*3*2} 

110 NEXT * 

120 PRINT INK 4; FLASH 1 jAT 21,16 TVS 

I For start d“ 

130 IF CODE INKET$-115 THEN CLS : GO T 
0 150 

140 GO TO 130 
150 LET 1=40 
160 LET s=0 
170 LET x= 5 
180 LET y=15 

190 LET 0 = 1 • GO SUB 200: GO SUB 840: GO 
SUB 800: GO TO 260 
200 RESTORE 3000 
220 READ 4 

225 IF 4=0 THEN RETURN 
230 IF q>=100 THEN LET c=c+l i LET q=q- 
100 

240 PRINT INK 6;AT cqre" 

250 GO TO 220 

260 PRINT AT x,y;a*U) 

270 LET c=4: GO SUB 280: GO TO 320 

280 RESTORE 1200 

230 FOR d = 1 TO 37 

300 LET &=1 NT CRND*263+2 

310 READ b 

315 IF b>100 THEN LET c=c+l: LET b=b-l 
00 

320 IF b=a THEN PRINT INK .7>AT 
330 NEXT d 

340 LET f = l NT ([256-IN 61438V2] 

350 IF f<] OR 012 THEN GO TO 430 
355 IF 07 AND x<9 THEN PRINT AT x,yja 
*U3i LET l-t-I/7: PRINT AT l,liINT t i" 

II s GO TO 340 


Th 0 ger Lyme 


360 PRINT AT x, y j" " 

370 LET y=y-2+UAL b$Cf] 

3B0 LET x=x-2+UAL cfU) 

390 IF SCREEN* (x J yJ- ,r e" THEN GO TO 50 

0 

400 IF SCREEN* (x,y) = t '*' t THEN 00 SUB 6 
40 

410 PRINT INK 5 J AT x,yja*m 
420 LET &=stlx4 
430 LET t=t-l/7 

440 IF x<9 AND y=14 THEN LET s=s+10: L 
ET y=l5: GO SUB 000: PRINT AT x,y;**($) 
450 IF INT t =0 THEN PRINT AT 1,11JINT 
s ifiLT 1, 1 j I NT t j GO TO 720 
460 PRINT AT 1,11 i INT * 

470 PRINT AT 1, 1jlNT t j" " 

480 GO TO 340 

500 FOP 4=1 TO 5 

510 PRINT INK 6;AT x,yj"c 11 

520 BEEP .1,-23 

530 PRINT INK 2;AT xjyrb' 1 

540 BEEP ,2,-40 

550 LET t=t-l 

555 PRINT AT 1, 1 J INT t i " 

557 IF INT 1=0 THEN GO TO 720 

560 NEXT a 

570 FOR 4=1 TO 8 

580 PRINT INK 3jAT x,yj' , l" 

590 BEEP .1,-50 

S00 PRINT INK 6 JAT x,yj"I M 

610 BEEP ,2,-10 

620 NEXT a 

630 LET x=5: LET y=15 = PRINT AT x,y;a$( 
1 J: LET C=1: GO SUB 200: GO TO 340 
640 FOR 4=1 TO 8 
650 PRINT AT x,yje*ta] 

660 8EEP ,1,0 
670 NEXT 4 

675 PRINT AT xjyi"*" 

680 LET u=JNT C£RND*2)-1J+x 
690 LET t = INT CCRN0^23 + n+y 
695 IF SCREEN* (u,t}="0 11 THEN GO TO 68 

0 

700 LET t=t“3 

701 IF t<=0 THEN GO TO 720 
705 LET x=ui: LET y=r 

710 RETURN 


720 FOR a=1 TO 300: NEXT a: CLS 
730 IF s>o THEN PRINT AT 5,2j"Du s\09 
hrghscooren med |h ;JNT s^JHt o 
735 IF s<o THEN PRINT AT 3j4;"Du slog 
skke higbscooren ,r 
740 IF o<s THEN LET o=* 

750 PRINT AT S, 5 J "H \ ghseo&r er er nu "il 
NT o 

760 PRINT AT l2 f 3j <t 0lL du hays et nyl s 
F> i r ? ,H 

770 IF CODE 1NKEY*=106 THEN CLS : GO T 
0 80 

780 IF CODE INKET*=110 THEN STOP 

7S0 GO TO 770 

800 FOR h=4 TO 8 

310 PRINT AT h , 14 j " I " 

820 NEXT h 
830 RETURN 

840 PRINT INK 4 s BRIGHT HAT 0,0]"Time 
v jAT 0,101 "Sc ore" iAT 0, 18i"H I qbscor e■■ i 1 
NK 7jAT I,22iINT a 
850 RETURN 

1000 DATA 102,3,4,5,6,7,8,9,11,12,13,14, 
15, 16,17,13,18,20,21,22,23,24,25,26,27,1 

01,2,5,7,3,10,!1,14,16,18,23,27,101,27,2 
8,101,28,29,101,2,29,30,102,6,7,8,3,30,1 
02,6,7,9,10,11,12,21,22,23,30,101,2,6,12 
,13,14,15,16,17,10,19,20,21,22,23,29,30j 
101,6,23,24,30 

1010 DATA 101,5*6,23,24,30,101,6,7,14,15 
j16,17,18,23,30,101,7,8,11,12,13,14,18,1 

9,20,23,24,30,101,8,9,10,11,20,21)22,23, 
24,25,30,101,2,9,21,38,102,30,102,30,102 
,29,30,102,3,14,15, I6j 17, IB, 21,22,23,24, 
25,26,30i103,4,5,6j 7>15,18,19,20,21,26,2 
7,28,28,30,106,7,8,9,10,11,12,13,14,15,0 
1030 RESTORE 1100 

1100 DATA 24,60,60,24,24,80,126,90,208,2 

24,116,186,28,46,20,8,11,7,46,93,184,180 

,40,16,90,126,90,26,24,60,60,24 

1110 DATA 0,7,98,255,255,38,7,0,0,224,70 

,255,255,70,224,0)8,20,46,29,186,116,224 

,208,16,40,116,184,83,46,7,11,32j 224,104 

,116,70,89,40,16 

1115 FOR a=0 TO 72 

1120 READ b 

1130 POKE USR "a 11 +a, b 

1140 NEXT a 

1150 RETURN 

1160 DATA 1 

1200 DATA 3, 5,7,9,10,11,12,l? f 19,20,22,2 
5,103,4,6,8, 10,12,16,18,21,23,26,104,8,1 
2, 17,20,23,25,26,27 

1210 DATA 103,4,5,11,17,24,25,26,28,104, 
5,25,26,27,104,26,3,4,26,27,103,26,27,28 
,102,4,26,27, 104,103,5,27, 105,6, 14,15,16 
,27 

1220 DATA 104,9,11,13,16,17,20,25,104,3, 
11,13,14,15,16,17,19,20,25,105,8,12,15,1 
8,21,23,27 
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Slimi 


Slangen "Slimi" er en foetter 
til gode gamle Pacman. For 
hver runde bliver den frygte- 
lige slange to led loengere. S& 
gcelder det om at se, hvor 
langt man kan nd, f 0 r man 
mister kontrollen. Spillet har 3 
svaerhedsgrader, og der kan 
enten benyttes joysticks eller 
Commodore 64's tastatur. 


SEARCHING FOR t* 


BpR" 


1 :U£$= ,,, ‘ 


1 EinFt2000> :V=532S1 H3=250'N*= 

£ flE=0 

6 31=8 = S2=@:S3=0 ; 34=9 :S5~0 : S6~8 ■ RE$=" 

7 GOSUE16000 
S GOSUE20000 
S< GOSUE 15000 
15 3=0:R=2 2E=0 
£0 K=0-O=170 PRIHT'n" P=P+1 

24 RERDL 

25 L$=LEFT$<W*,4> 

26 OH m GOSUjB 3000,4000. 5000 
23 PFlNT"tf*I^^t!t^ 

29 PR I NT "SSnWTOllIf™ SPC £35? ;<F-E) 

30 K=0 : 0=170: : GETC$ J GETC$ : OM QT GOTO400,500 

400 J=PEEK < 56320 ) 

410 IFfJflNJP1> =0THENX--40 
420 IFCJRMH 2 )=0THENX*40 
430 IF CJRHD4 >“0THENX=-1 
440 IFCJflHJJ3>«0THENX=l 
450 GOTOeOO 

500 GETfif IFRT= J, L"THENX=1 
510 IFRX""K m THEHX=- 1 
520 IFfl^'GT"THENX=-’40 
530 lffiS= "fl "THENX=40 

60© F<O>=F{0-*1?+X : IFPEEK11106+F(0>>-102THENK-2 
610 IFPEEKC1106+FCO?J=83THEMS=S+1 
628 IFPEEKfl106+FC0>) -8 1THENK=2 

700 POKE 1106+F < 0 >, 81 : P0KE55373+F<0 >,1=POKE11@6+F r o-l ?,36 
710 PRIMT 1 3Sffl(0(WW ,, SPC^31);S 
750 IFK*2THEH300 
760 0=0+1 

770 I FRE»3RND5* C L/ 19 > # 134THENDE=X!E+1 ■ G0SUE30000 - 001023 
730 IF R 0=£ AMDS = (. L /10 ) # 123T HENDE=DE +1 ■ GQSUB30000: GO 1020 
' 790 IFRG?*lfiNDS=CL/10)*89THENBE=DE+l=GOSUB30000 : GQTO20 
800 ON OT GOTO 400,, 500 

900 EG=54272 : LR=15 ; FORHJ=60T040STEF-2■POKEER+24,LR■POKEFR+6,15#16 
3 10 POKEBfl+1,H J ■ POKE EH+4,17:FQRC D»0T010:POKEV,CP : NEXT CC 
911 FQKE53£80,0:p0KE53281>0 
3 1 2 LR=LR~1:NEXTHJ:POKEBfi+24,0■POKEV6 

929 FOPRR=0TOL:POKE1106+F C <Q-L >+RR >,96 : NEXTHR:POKEFC0 > +1106,102 

930 e=e+i *PRiHT n mmommmmmmmja i, spc<.35> ; cp-e; : if<P“E>= 0 then 2000 

935 POKE33378+FC0>,1 : P0KE532S9.0 : P0KE53281,0=PRINT"3" 

940 GOTO30 

I00O HRTR10,20,30,40,50,60,70,30,90,100,119,120,130.140,150,160,170 
2000 IF S3 H3 T HE MGOSUB50000 
2010 REST ORE GOSUB40000:00109 



3800 

POKE53288,0 

'■ P0KE532S1,0 

PRINT"*" 

3010 

PRINT" 

m # * 

» ¥ ¥ < 

* * * i 

* ¥ ¥ ¥ 

"Tb 

3820 

PRINT" 

m rpmwm mmm mmm ¥ % 

3830 

PRINT" 

& n 


^ & 

B B 

B ^ 

3048 

PRINT” 


m® 




3050 

PRINT" 

n n 



B B 

B B 

3068 

PRINT" 


3870 

3080 

PRINT" 

PRINT" 

m ¥ * 

* ¥ ¥ * 

► ¥ ¥ 1 

* ¥ ¥ ¥ 

¥ & 


3090 
oi ran 

PRINT" 

m M 

mm 



£§ B 

J i - J 

3110 

r.\ 1 ora 

ri\ 1 H j 

PRINT" 

pD T MT ¥Y 

m ® 

m ¥ « 

1 ¥ ¥ 1 

> ¥ ¥;7 

B m 

3130 

r F . 1 Pi I 

PRINT" 

m m 

m®. 



M % 

3140 

g i t;n 

PRINT” 

PP T MT lp 

mm 

^ m 


P B 


J 1 r-"3 

3160 

g t 70 

r r_ 1 IT 1 J 

PRINT" 

PP T MT M 

mm 

^ ¥ ¥ 

¥ f f 

¥ ¥ & 

mm 

-5 L 

3180 

r K 1 ri 1 

PRINT" 


m ^ 



mm 


3190 PRINT" 
3200 PRINT" 
3210 PRINT" 
3220 PRINT" 
3399 RETURN 


m 


a SCORE 


5HIGHSCDRE 


BV 


"; LT 


LIV - 3 


4090 

4005 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

40S0 

4090 

4100 

4110 

4129 

4130 
4140 
4150 
4160 
4170 

4189 

4190 

4209 

4210 
4220 

4999 

5000 
5005 

5019 

5020 
5038 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 

5139 

5140 
5150 
5160 
5170 
5130 
5199 
5280 
5210 
5220 
5230 


PUKE53230,0-POKE53281,8 r PRINT"5” 
PRINT" 


PRINT 11 


print 1 ' mm mmm mmm mmm 

PRINT" i 

PRINT" $ ¥ ¥ ¥ 

PRINT" 

print" mm wmm *mm b mm 

PRINT" 

print" mm %&*%?$** ^ 

print" m + % mm * * 3 
print" ® ^ $ 

print" m t m * t # m * # m 
ppiNr" e mm mmmmm mmm 

PRINT" 

print" m ® 

print" m + m*m*m t • * » # * m 

mm • t ¥ • tss 

^ ^ * * * v * * 9 $ 

if M t M t I M 


PRINT " 

PRINT" 

PRINT" 1 
PRINT" 

PRINT" 

PRINT" 

PRINT” 

RETURN 

POKE53280,0 : POKE53281,0'PPINT"3" 

m*« r r t ^ 

W ♦ t ¥ ¥ # ¥ ¥ ¥ 

M m i 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
FRINT" 
PRINT" 
PRINT" 
PRINT 


¥ # ^ ^ ¥ ^ 

^ # ¥ • ^¥^¥ ¥^¥ ¥ ¥^ 

iss mm i ^ ^ 

®¥5^¥ ¥ m # S?¥^»^¥^ ¥ 

8? ^ $ ¥ ¥ ¥ ^ 
¥ iS 

$! ^ a: ^ ¥ * ¥ ¥ 

®¥^?¥^¥^¥ ¥^¥^¥»¥^^¥»^ 
^ i $ i§¥3? i^^¥¥¥¥¥^ 


t$¥¥$;p!$¥¥ ¥;1?¥ :^¥ $ 
PRINT” ^ ^SSS 

IBBI ^ 

^ ¥ ¥ ¥ ¥ ¥ ¥ ^¥ ¥ ¥ ¥ * Wt 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

RETURN 


a SCORE " 


SHIGHSCGRE 


f 


EV 

" t LT 

LIV - 3 


aSCORES" 


SB-fIGHSCUPEl" 

5 |" 

BV 11 
", LT 

LIV - 3" 
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10000 PRINT"!" : PRINT " 3": PCIKE53230-. 0 : P0KE53281 ,0 
10010 Elf< 0 ? = "SOFTHRRE-TEAM" 

10015 Elf^1>="EV" 

10020 Elf £2>*="HR NS - JUE RGEN - H ANSE H " 

10030 ElfC3>*"AND" 

10040 E If < 4 >="EERNB-RUEHLICKE" 

10950 EIf C5 >="PRESENTS" 

10060 FOR51=0TQ5 

10070 F0RS2= 1TOLENTElf^SD) 

10030 LEf=LEFTf(E If CS1>/S2) 

10090 RE£=RIGHTf < LEf,1) 

10100 53 K ASC<RE$> 

10110 S4=HBS < S3 J 

10120 IFS4=45THENS5-43 : GOTO10140 

10130 S5=tS4>-64 

10140 FORS6^0T0400STEP40 

10150 POKE1034+S2+S6 1 S5 : POKE55306+32+36,1=POKE1034+82+SO,96 
10160 IFS6=400THENPOK E1034+52+36■S5 
10170 NEXT36 
10130 NEXT32 

10132 F0RTV=1TO700 NEXTTY PRINT H !" 

10190 NEXT31 
10200 PRINT"!" 

10210 PRINT PRINT:PRINT'PRINT 


10220 

PRINT" 

^2T W 

ST ■ 

a ■ 

sr 

^ 3f 

10230 

PRINT" 

a m 

a ■ 

a 


^8 ■" 

1D240 

PRINT" 


a ■ 

a ■ 

a ■ 

a ■ a r 

10250 

PRINT" 

a i 

a » 

a ■ 

a ■ 

as as- 

10260 

PRINT" 

w 

a w 

a ■ 

a » 

a ■ n ■' 


10270 PRINT:PRINT rPRINT 'PR1NT:PRINT:FRINT:FOFOO=0TO70O:NEXTOQ 

10271 FORU7=ITO20 

10272 FORTU=1T015 

10273 PQKE53281iTU 

10274 NEXTTU 

10275 NEXTUT:P0KE532S1/0 = FOP11=0TO1400:NEXT11 

10280 PRINT 11 3f COPYRIGHT BY 3B0FTHHRE5*OTERM■ 1934 " 

10290 PRINT:PRINT 

10300 PRINT" TRYK Fl TIL START SFIL" 

10310 GETTTf:iFTTf=""THEN10310 

10315 JFTTf= M «"TH£NlB320 

10316 IFTTfO "■"THEN 10310 
10320 RETURN 

15000 PR I NT"!" : F0KE532S31 6 : P0KE53281,6 : PR I NT " 31" 

15010 du spille neb sjsoystik" 

15020 PR I NT “ NE B SK^YBQRD ?" 

1^030 GETRBf - IFRBf=" ,, TNEN15030 
15840 IFPBf-"J"THEN QT=1:GOTO15060 
15050 IFRDf="K**THFN QT=2 ■ GOTO.15070 

15960 PR 3 NT 11 SSTsmSMK VmmRsmmdttttSrffltt < PORT 2 > " : FORKF= 1T 014 09: NEXT KP = 00TO 15110 

1^070 

15030 PR I NT 11 mmmmmWMfflN EL" SH"" 

15090 PR I NT'' i ^ftT!?B!fIPT^T?EWlW*?WI)SIW^=Ti^sTv l E NST RE - ■" 

15100 PR I NT' 'flHDffironOTWKIlS^^ RE- a_5 " ■ FORF T=0 T 02100 : NE XT F T 

15110 PRINT"21": RETURN 
21*000 PRINT"*!" 

20010 POKE3328010■P0KE53281> 0 : PRINT"a" 

20020 PRINTsPRINT 

20030 INPUT "SVRERHEDSORRIi 1-3 ";fiO 
20070 RETURN 

30000 PPINT H !NWTOiriLLYKKE BU FEARHIGGJQRDE BILLEDE NR."BE 
30040 PR I NT" HT;T:Wf7;T=Tj7iTiTiKLHR TIL NE R ST E RUNDE ! 11 
30O50 F0RH=1TO4000:NEXT 
^00^0 RETURN 

40000 PR I NT"!" : POKE532S0.0 ■ P0KE53281 ^ 0 1 PR I NT" 3T 

40010 PRINT PRINT:PRINT:PRINT 

40020 PRINT" SPILLET ER SLUTM" 

40030 PRINT"]™ BU FIK M ;S;“ POINTS" 

4094O PRINT"™ VIL DU PR9VE I GEN? >SJ"C ELLER > SHK" 

40050 OETVUf: IFYUf= ,,,, THEN40060 

40O60 IFYUf="J"THEN40890 

40070 IFYUf="N"THENGOT045000 

40080 IF YUf O 11 JR"0 RYU $ O"NEJ"THE NGOT040050 

40090 INPUT 11 mS VflERHEBSGRRD";AQ 

40100 RETURN 

45000 PRINT!":POKE532S0,14:P0KE53281 ,■ £ : PRINT"!" 

45010 PR I NT" , SRH 3 T DP PE R VI f " 

45020 END 

50000 PRINT"TT :P0KE532SU 1 6 : POKE53281^ 6 : PRINT"3" 

50002 RRINT^^^^^MWI^HERnEEi HRR BU SLflflET HIOSOOREN 00 MAR" 

50004 PR I NT" }fllNDTHSTE BINE INITIAL ER *RHFl MAX. 4 BUG-" 

50006 PRINT"JOSTAVER." FORGH=1T02100 NEXTOH 
50017 PR I NT " nr : POKE53280, 6 : PQKE53281*6 PRINT "!7T 

50019 PRINT PRINT 

50020 PRINT" /-- _ -~~--\ " 

50030 PRINT" I SHIOHSC0RE" 1 H1 

50040 PRINT" \_" 

50050 PRINT:PRINT 1 HS=S 

50055 F0RRR=1T03 

50060 FOPUU=0TO15 

50070 POKE53280,UU 

50030 HEXTUU NEXTR R'-P0KE5323n, & 

50090 INPUT 11 NRVN:";W f 
50100 PR I NT 11 S[(!K!M(!J(!lrt™« 

50110 PR I NT" -TsTitsTiTf^TjT" J Uf J " " ; S 

50120 PRINT:PRINT:PRINT 

50125 PR I NT 11 l^sTSTjlTSTqTOU KOM TIL RUNDE ";<BE+1> 

50127 PRINT:PRINT:PRINT 

50130 PRINT" TRYK TASTE TIL HVT SPIL!" 

50140 OFTTYf:IFTYS^""THEN50140 
50150 RETURN 
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Bricks 


m m 


m 





□L 

3c 


I dette invaders-lignende spil, 
skal du gribe murstenene in- 
den de llyver forbi, og Laeg- 
ger sig sam en mui under dig. 
Ndr de har bygget muren helt 
op, har du tabt. 

Du siyier til venstre med "5", 
ogtilh 0 jre med "8 J '.Efterind- 
tastningen SAVE's program- 
met med GOTO 2150, og der- 
efter selvstartende, □ 



2 LET HP = 0 

3 CLS 

4 SOSUB 3000 

5 GG5UB 100O 

6 LET PO~0 
10 LET H=ll 
D0 DIM A(22> 

4® LET P = XNT t22*RNDl+1 
6© LET U=P+4 
6 4 LET LJ^"r 

65 IF PNDL9 THEM L6T ut = V 
70 FOR 1 = 5 TO 19-AtP} 

©0 PRINT AT I,J;L* 

©1 PRINT AT I -1,t J; “*'* 

90 LET elNKEVf*”©" AND He 

23) *Sj -l i INKEV*=' 5 11 AND *2^ 

116 PRINT AT 15,ri L "■***;' J u 
120 IF 1=1© AND i(H+21= U OR *H + 
3i-J) THEN GOTO 146 
13© NEXT I 
130 LET fl(P)xRtP)+i 
13© IF A CP? =5 THEN GOTO 30Q 3 
140 GOTO 40 
143 LET FO=PQ+X 

146 LET P*="' _ s ^ 

147 IF L* = l, mT AND FGKll THEN LE 
T PG^ll 

146 IF L*= W L THEN LET PO?PO-U 

150 LET 5*=STR* PO 

151 FOR N«I TO LEN O* 

152 LET P tapffCHfit <CQDE OttN'f f 
126 ) 

153 NEXT N „ 

150 LET Pfxr'S' 1 AND POel3)+t’3S 
AND PO < 100> + ( "E 1 AND P<j<130©?4-P 

*17© PRINT AT 4,6;P* 

130 GOTO 40 

1000 FOR N=0 TO 21 __ 

1010 PRINT AT 


i';AT N,3©; 


1015 NEXT N 

1016 FOP N=0 TO 01 


1020 PRINT RT 5,«N;“V,fT 7 X N : ' f" 

; AT 20,N; ' V ; 3, id,; 

jfiT iiN;‘V 

1030 NEXT N ■■**„* .^ 

1040 PRINT AT £l HC'WC AT 3.* 14; 

■:W"vfiT *.i*ivo: ^ ■?. 14 .;-<b.- 


"W'VfiT 

1045 PRINT 
AT 2,15; ffl 


PRINT A T 4,5; C 


J5 RT 4,21 



RETURN 

IF HP t PO THEN LET HP =PQ 
LET K$=" 4 ’ 

LET Hf=STR* HP 

LET H*= t "0" AND HPatn + i. ”0 " 
HP<1005 "0" AND HP<1000l *H 

FOR Nsl TO LEN Hf 
LET M t = K(tCHRj iCOOE H*CM>4 


n 

’ HCT 


-f 205C 

_J IT 


LET w*-r*+chR* iCOOE H*(N>+ 
NEXT N 

PRINT gl i ; 2 | ; 

IF INKEY It-" U" THEN GOTO 21© 
IF INKEY Ji"N" THEN GOTO 400 


209© GOTO 2070 

2100 FOR N x11 TO 19_ 

au^gjNmir «,s; ' MHHH 

Sli^NEX^Y^^" _ 

213© PRINT AT 4 , 6 . HESS *' 

2140 GOTO 6 
2150 SAVE '6RICK5UAS >1 
2200 RUN 
3 000 PRINT 1 ' 

'aSia PRINT®^^ BRICKS WAP 

3020 

303BPRIN^i 

3040 PRINT 5i DU HRR EN GRIBE HR 
NDSKE, SON &" 

3050 PRINT Hf DU 5KRL GRIBE NURS 
TENENE DER »" 

3060 PRINT "» KOHMER NED FRR CUE 

n . de «r 

3070 PRINT "Sf HUP5TEN DU IKK E FR 
AR FftNDT ffi" 

3030 PRINT M B> PAR UXL BYGGE EN « 
UR QG NAAR »V 

3000 PRINT "M HUREN ER PAR H0UDE 
MED DIG MZ 

3100 PRINT "M ER DU FREADIG, 

3105 PRINT *W 

3110 PRINT *JS DER FQREKGMMER TO 
SLAGS STEN tf 77 

3120 PRINT "H DEN EN£ UIL GIUER 
DIG POINT jft" 

3130 PRINT 11 '’l 1111 - DEN RNDEN U 

IL TRGE 10 

3140 PRINT "ffi POINT FRfi DIG 
3150 PRINT M 


DER FOREKOMHER TO 


NAAR DU EP KLAR, S 


3160 PRINT DU 5TYRER HED PILE 

NE 5 OG B, #" 

3170 PRINT "» 

H" 

3150 PRINT "g| NAAR DU EP KLAR, & 

AA TAST L WT 
3190 PRINT 

§5S«a1PlN!f?v t< > H "L r “ THEN GOTO 33 
©0 

3310 RETURN 

4000 CLS 

4001 PRINT 11 


4020 PRINT 0NSKER DU RT 

4©30 PRINT J?* INSTRUCTION 

EN WT 

4040 PRINT "U 

40S0 PRINT tUxN? 

4060 PRINT 

?f§l^?P^!!i?Sv* = lL U" THEN GOTO 3 
4110 IF XNKEYto“N" THEN GOTO 41 
00 

4120 CLS 
4170 PRINT 
4130 PRINT 
4190 PRINT 
4200 PRINT ** 

4 210 PRINT " f |_! r- 

4220 PRINT " | | | | - 

4230 PRINT 
4240 PRINT 
4250 PRINT ' 

4260 PRINT " f“ | f ^ 

4270 PRINT ' | *mmT 1 

4275 PRINT 
4260 PRINT 

4300 PRINT " J** r—m T 1 f 


4320 PRINT 


S I w 

w 1 


CPR 


Har du f6et et falsk cpr-num- 
mer ? 

Ved hjcelp ai Modulus II me- 
toden beregner dette Spec- 
trumprogram om nummeret 
er korrekt ellei ej. 



2 FOR n=0 TO 8: PRINT : NEXT n 


5 LET 

15 PRINT "HUILKET CPR.NR. 0NSKES TESTE 
T ?" 

20 POKE 23617,236: INPUT "[s=ST0P3 CPR 
.NR. ”;C* 

25 IF C$="s" THEN STOP — 

30 IF LEN C$O10 THEN PRINT FLASH 1; 

"GIU NIG 10 CIFRE TRK 2”: PRINT s$: GO T 
0 5 

35 PRINT : PRINT CfC TO 63J;C$C7 TO 
J : GO TO 070 

43 LET SUN=0: FOR J-=l TO 3: LET SLH1=SU 
■ N+UAL C$CID*C5-n: NEXT I 
; ,50 FOR I«4 TO 9: LET SUN=SUN+UPL C$CI3 
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Garfield II 


VIC 

! 15 H HANSEN | VlT I 

2 REM SILKEBORG 1384 ■ I /L *- 1 --- 

10 print"3j -—-— - ■■ - .» J l:~ _-" 

20 PRINT" f GfiRFIELD I" 

30 PRINT" ■'•-—-—‘" - ' ' 

40 PRINT"l«aK»MW COPYRIGHT 1984" 

50 PRINT"» BY HRNS HENRIK" . 

80 PRINT "WM M RLL RIGHTS RES ERVED*' VU 

80 FORT=1TO5000 NE^T PRINT"W3 HIT fi KEY" 

90 GETR* : IFfl$=""THEN90 JWm 

100 PRINT"OtfM*U) GfiRFIELD ER LRVET" 

110 PRINT"Jd UB BF 48 DEFINERB8RE" S~ 

120 PR I NT" J(l KfiRRKTER" < V ( * 

130 PRINT" MOM PQKE-V®RDIER FRfi" jMf % Ihw \ 

140 PRINT"W 35-80" JBlS % \F S - 

150 F0RT*1 TO4500 : NEXT : PRINT"jOM HIT fi KEY" ^ 

180 GETRf : IFfi$=""THEN160 

170 PRINT"HMM HVTS BILLEDET SKfiL" /ML ^ r jl 

180 PRINT"*M LIGNE GfiRFIELD■ Sfifi" it*IVl u 

190 PRINT"MW V0R SIKKER PBH" W}L 0 . 

200 PRINT "MV BT DRTH S0TNINGERNE" mWF TF / / 

210 PRINT"MW ER OK, F0R RUN." A t 

220 PRlNT"OI VENT LIDT CR (7 SEK.>" f jr JH& TvV W 

230 FORT=1TO3500 NEXT-PRINT J| M1 HIT B KEY" \ - ^ V 1 

240 GETB$ ; IFB$* IMI THEN240 V 

250 PRINT w H" 

255 POKE 868,127 ’ 

260 POKE52,28 P0KE56,28 J FORR=74487 07816 : POKER,PEEK < fi+25600):NEXT : PGKE36868y 255 

270 FGRfi=0TO45:B=B#8+74^8iP0RC-BT0B+7 REBBB : POKEC,D:NEXT NEXT 

280 DRTfi ,* f ,,, f ltt f * t * ,,129,,,7,25-35,68-137,8 

290 DR TR,, 224, 243, 255,175, 73, 26, ,,,1.92,240,240,30, 160 

300 DRTfi,7,,6,9,,,,70,44,156,124,64,199,200,210 

310 BBTR19,4,8,16,16,208,48,16,208,46,17,16,8,8,74.74 

320 BRTH64,128,195,196,105,82,84,73,,,,,192,,,192 

330 DRTfi,,,60,67,64,64,64,1,1,1,57,69,133,133,132 

340 DRTR212,16,12,,192,224-240,224,16,16,8,139,160.144,159,283 

350 BRTR8,8,16,239,68,56,215,18,122,132,148,4,76,213,63,7? 

360 BRTfi32,,,112,136,9,14,3,,,,,,224,16,8 ^ 

370 BRTR185,129, 129, 64, 56,16,16,16,68,2,1,192,,,, 148 ^4E 

380 BRTfi 192,64,64, 254,30, 14,3, , 177,159,145,289, 57, 7,, 192 

390 BRTR18, 255,18,18,19,252,, ,221,77,70,124, 134,48,33,67 jSftK * 

400 DflTR12, 4,4,24,, ,3,128,8, 16,240,8,8,40, 192,32 JVk 

410 JDBTB15,,,,, j ,,115,,,,,,,,, 192, 48, 40,64.96,240, 224 

420 BRTfi,,,,,, 120,230,1,,,,,,,, 134,152, 96, 64, 32, 32,16, 16 9** 

430 DBTB120,4,3,,, ,, ,32,64,126, ,,, ,, 1,1,1, 1,3,3,3, 2 

448 DBTB192,, 128,192, 224, 192,128,, 231,79,12,, 1,3,7,1 /# 

450 BBTB,, 128,128,128,128, 128,128, 8,8,4, 4,4, 4,4,4 fll k “r 

460 DBTB3,3,3,3,7,30,48,63., 128,192,128,,, 128,255 tAmm 

470 DftTft, ,4,2,1,1,34,255,240, 8,68,34,13, 20,36,255 ■fv’* V \ 

480 DBTB4, 6,5,12,10,18,52,255,,,, 128,128, 3 28-128, VflL i 

490 ^ UWK )*+, -SmiMil. 7012345M1M BMH6789 :, O." W/mi ** 

500 I —~RllllllflUi K r HMI*PL\/TT fl|li 1 

510 PRlNTSPCt 118) * R$ ^ - iJ* . i | J 

520 PRINTSPC<7>;B$ 

530 GOTO530 f 



WW COPYRIGHT 1984" 
BY HRNS HENRIK" 

RLL RIGHTS RESERVED" 


HIT fi KEY" 


HIT fi KEY" 




I »AIt om Data* bar vi tidligere 
vis! en flot tegning af katten 
Garfield, fremstillet pd en RC 
Piccolo computer. 

I denne omgang vil vi vise 
dig, hvordan du med en VIC- 
20 kan fd et vellignende por- 
trcet al den populoere kat pd 
din TV-skaerm. 

Programme!, der k 0 rer pd en 
standard VIC er, legner Gar¬ 
field i h0jopl0sning. Og han 
ligner virkelig sig selv. 

Hans Henrik 
Hannibal Hansen 








*£11-13! NEXT I 

52 LET R=11 + JNT £SUI1/11 J*11-SUH 

53 IF R»=10 THEN LET R=0 

54 IF R*ll THEN LET R=1 

55 PRINT : PRINT "DET SIDSTE CIFFER SK 
AL UftERE "J FLASH l;R: PRINT 

56 IF NOT STR* R=C^C103 THEN GO TO 60 

57 IF CR,2I=INI CR/2J THEN PRINT "NUH 
MERET PASSER PAA EN "j FLASH 1j"KUINDE" 

58 IF CR/2IOINT CR/21 THEN. PRINT "NU 
MdERET PASSER PAA EN " J FLASH 1 J "flAND" 

60 PRINT : PRINT s* 

65 GO TO 15 

75 LET !1D=UAL C*C3 TO 41 

80 IF f1D<l OR M0> 12 THEN GO TO 120 


85 LET DA=UAL p*Cl TO 23 
90 IF CnD=l OR nD=3 OR f1D=5 OR DD=7 OR 
nD=8 OR 00=10 OR rtD= 12 3 ANO DA>31 THEN 
GO TO 1?0 

95 IF riD=2 AND DA>29 THEN GO TO 120 
100 IF CI1D=4 OR f1D=6 OR DD=3 OR f1D=I 11 
AND DA> 30 THEN GO TO 120 
105 LET SK=UAL C$C5 TO 6V4 
110 IF NOT SK= I NT SK AND T1D=2 AND DA>=2 
9 THEN 30 TO 120 
115 GO TO 40 

120 PRINT ! PRINT FLASH 1J'’DAT0EN EKSI 
STERER IK,KE !" 

125 PRINT s$ : GO TO 15 
9999 SAUE "CPR^TEST" LINE 0 
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ME MOTECH 


Detgdmle hus 


"Del gamle hus" er et Adventure-(eventyr)spil, hvor du er tan- 
get indeni en gammel taldetcerdig r0nne med en lige s& for- 
s0mt have, Din opgave er at komme ud fra dette (tarlige?) 
sted. Undervejs vll du stode p6 torskellige ting, som kan vaere 
til hjaelp eller til besvcer, 

Nogle gode rdd til losning at spillet: 

Din bedste hjaelp er din tontasL 

Du kan skrive N. S. 0. ell. V. ndr du vil gd mod henholdsvis 


Bruges til at lcegge en af de ting du baer pd. 

Skriv: UEG <tal> eller L <tal>, hvor <tal> er nummeretpd 
den ting, du vil laegge. 

Eks.: UEG 2 (lcegger den anden ting p6 inventarlisten). 

Retur: < R > + < ret >, nceste ordre: < ret > 

GEM 

Med denne ordre kan du gemme "stillingen J ' pd bdnd, skriv 
'G' eller 'GEM', 


Med denne ordre kan du td at vide, hvor laenge du har vae- 
ret i huset. 

Retur: < R > > < ret >, naeste ordre: < ret > 


Denne ordre bruges til at ta' ting. Du skriver bare: TAG eller T, 
hvorved du tager den ting, der er i rummet. 


nord, syd, ost ell. vest. 

Hvis du vil have hjaelp, skriver du HJjELP eller bare H, men 
prov uden. En del af dei sjove er jo at bruge tantasien til at fin- 
de ud at de ordren man kan bruge. 

Du kan altid gemme spillet pd et hvilket som heist tidspunkt. 
Du skriver bare 'G' eller GEM" 

JE, 0, A sidder lige til venstre tor linefeed-, BS- og ret-tasten 
< ret >. 

INVENTAR 

Med denne ordie kan du se hvad, du beer pd, alisd en inven- 
tarliste. 

Skriv: INVENTAR eller I. 

Retur: <R> + <ret >, nceste ordre: <ret > 

Aben 

Med denne ordre kan du dbne den ling der er i rummet 
Skriv: ADEN eller A. 

OPSPRJET 

Med denne ordre kan du spraette noget op med. 

Skriv: OPSPR^T eller O. 

Retur: <R> + <ret>, naeste ordre: <ret> 

MAD 

Med denne ordre kan du made nogen eller noget, 

Skriv: MAD eller M. 

Peter En .0 Cordsen 
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1 REM ** LIN IE lO Eft AUTO-START ** 
lO SAVE "DET GAHLE HUS" 

100 REM----—--- 

J1D REM * STYP * 

120 REM _ 

130 GOSUB 3000 

140 PLOD "INTRO-STYR" 

150 GOSUB 9000 
1*0 GOSUB 200 
185 CSR l + 22 

190 INPUT "VlL DU PR0VE IQEH 7 {J/N1 "jFI 

191 IE F*-"J Hp THEN GOTO 150 

199 STOP 

200 REM ------------ 

210 REM * IN PUT-STYR * 

220 REM _____ 

230 GOSUB 400 

240 INPUT * RVAD VII, DU GORE NU ? ": M* 

250 PRINT : PRINT : PRINT 

2*0 IF M#-"N" OP M*-"S" OR Ml-"a" OR M*-"V" THEN GOSUB 640 
270 IF HS-"T ,P OR LEFT*(MS,3)-"TAG" THEN GDSUB 970 
290 IF LEFTS(MS,1}-"I" Oft M*-"INVEHTAR" THEN GOSUB 1130 
300 IF LEFT! C Mf r 1 } -"L" OR LEFT* ( Ml r 3 > - "UBG" THEN GOSUB 1230 

310 IF Nt ""A" OR LEFTS(HS,4>-"ABEN" OR M*- pl O ,p OR LEFT* (Mt , 7) = "OPSPRj*T" THEN QOS 
UB H70 

330 IF M*-"M" OR LEFT*(H*»3)-"HAD" THEN GOSUB 2000 

340 IP OR H*-"GEM" THEN GOSUB 5000 

350 IF OR M* - " KJ ,* L F" THEN PLOD "HJJtLP-STYft" 

360 IE M*-"TID PP THEN GOSUB 4000 
370 IF £ND*-"SLUT" THEN RETURN 
390 GOTO 200 

400 REM -■ -— -— ---■ 

410 REM * START SF3L * 

420 REM _ _ _ _ 

440 CLS 

4 50 PRINT ,h DET G A M L E HUSl M 
460 PRINT * -------------------------- 

470 PftlNT 

475 PRINT 

480 PRINT : PftlNT 

490 PRINT * DU EP I"iftl(R> 

500 PRINT 

510 PRINT " DER Eft UDdAtfGE MOD: *} 

520 IF DKlOOO THEN PRINT "NORD "l 
530 IF D2(K)OD THEN PRINT n 0St "i 
540 IF D3(R1<>0 THEN PRINT "SYD p ‘; 

550 IF D4{R><>0 THEN PRINT "VEST "E 

560 PRINT : PftlNT 

580 FOR 1-1 TO 11 

58; IF L(I>Oft THEN GOTO 600 

590 PRINT " HEP ER H ; N| ( I >5 T*( I) : 

595 IF R-S THEN PRINT ,p , DEN ER M t ELSE PRINT ", DER ER "] 

597 PRINT A*(I): PRINT 
600 NEXT l 
610 RETURN 

640 REM -,-► 

650 REM * N . fif r S tlr V * 

66D REM _. 

6$0 IF Ml- rt N" AND Dl(fiK>0 THEN LET R-Dl(R): RETURN 

700 IF M*- pp 0" AND P2(R)<>0 THEN LET R-D2(R): RETURN 

710 IF AND 03(S)O0 THEN LET R-D300: RETURN 

720 IF M*-"V" AND D4fftJ<>0 THEN LET fl-D4(ft); RETURN 

730 PftlNT 

740 PRINT ” DU KAN IKKE Gfi MODt "t 

7?0 IF THEN PRINT "WORD" 

760 IF M*-”(B" THEN PRINT "I0ST" 

770 IF M#-"S" THEN PRINT "5YD" 

780 IF M*-"*" THEN PRINT "VEST" 

790 PAUSE 2500 
800 RETURN 

970 REM —--— — ----— - 

930 REM * TAG 1 * 

990 REM _ _ 

1020 FOR I-I TO 11 

1030 IF 1UL4I) THEN GOTO 1055 

1040 NEXT I 

1050 PftlNT * DER Eft IKKE NOGET AT TA P ": PAUSE 2 500; RETURN 

1055 IF R- 1 AND B-0 THEN PRINT " B 0 K ESN ER LJENKET TIL VJBGGEN T M ! PAUSE 2500: R 
ETURN 

1057 IF EU3 AND RO-O THEN PRINT " ROTTEN KLISTRER TIL GULVET !"i PAUSE 2500: R 
ETURN 

1060 IF H-IO AND F-O THEN PftlNT " PENGESKABET Eft FOR TUNOT": PAUSE 2500; RETUP 

n 

1062 IF R-19 THEN PRINT pp DU KAN DA IKKE TA p MONSTEHET !Y": PAUSE 2500: RETURN 

1070 IF 1-9 THEN LET FI-1 

1080 IF 1-2 THEN LET F2-1 

1090 IP 1-3 THEN LET F3-1 

1095 IF 3-1 THEN LET Fil-1 

110O IF 1-5 THEN LET F5-1 

1110 IF 1-4 THEN GOSUB 6000: RETURN 

1112 LET L(I)-100 

1115 PRINT " "jTKDl" TAGET" 

1120 PAUSE 2500: RETURN 

1130 REM ---—-- 

1140 REM * INVENTAR ! * 

1160 REM _ ____ ___ 

1170 CLS 

1180 PftlNT * OU BAR Ffl ; * 

1200 FOR 1-1 TO 11 

1210 IF L< 1)0100 THEN GOTO 1230 

1215 PftlNT 

1220 PRINT Hi "i N*(I) LTfflJ 

1230 NEXT I 

1240 PRINT : PRINT : PRINT : PRINT 
1250 INPUT ,p TRYK X* 

1270 RETURN 

1280 REM -------.— -- 

1290 REM * L*G I * 

1300 REM _____ 

1310 LET Y-0 

1315 IF HtO"L pp AND M*<>"UEG ,P THEN GOTO 1330 
1320 PRINT " HVAD SKAL J EO UKGGE 7" 

1322 PAUSE 950 

1324 PRINT : PRINT " *SE IN V ENTARLISTEN ELLER HJJtLP" 

1327 PAUSE 2fi0Q: GOTO 1450 

1330 IP LEFTS < M*. 3><>"UBG" THEN LET IS-MID* <M* . 3 , 3 ) ELSE LET IS-MID*-(Ml. 5.5) 

1340 FOR 1-1 TO 11 

1350 IP L{I}-lO0 THEN LET Y-Y*l 

1360 IF LCD-100 AND Y-VAL(It) THEN GOTO 1410 

1370 NEXT I 

1360 PRINT : PRINT 

1390 PRINT " DU BAR IKKE PA NOGET SADANT" 

14 do GOTO 14 50 
1410 IF 1-9 THEN LET Fl-0 
1420 IF 1-2 THEN LET F2-0 
1430 IF 1-3 THEN LET F3-0 
1440 IF 1-5 THEN LET F5-5 
1443 LET L(I>-ft 

1445 PRINT M "jTMlli" LAGT" 

1450 PAUSE 2500; RETURN 


1460 REM--—.— ----- 

1470 REM * ABEN. OPSPftNT ! » 

1480 REM _____ 

1490 IF H-l AND B-O THEN GOSUB 1600 
1500 IF R-3 AND RO-O THEN GDSUB 1700 
1510 IF R-10 AND P-O THEN GOSUB l600 
1320 IF R-20 THEN GOSUB 1900 

1530 IF AOl AND B-0 AND R<>3 AND KO-O AND ROIO AND P-0 AND RO20 THEN PRINT 
DER ER IKKE NOGET K JEG KAN ASNE HEfi " 

1540 PAUSE 2SDG 
1590 RETURN 

1600 REM AMAM********** 

1610 IF P2-Q THEN GOTO 1680 

1620 PRINT ** DER ER FOGLE HUMRE IN DENI BOKSEH 1" 

1630 LET N*(1)ET " 

1640 LET TS<1)-"STYKKE PAPIft" 

1650 LET A * f1J-" SKREVET NOGLE NUMRE PA" 

i860 LET B-l 
1670 RETURN 

1680 IF R-* 1 THEN PRINT " JEQ HAR IKKE NOGEN H0GLE pp 
14.99 RETURN 

1700 REM *********W***** 

1710 IF FI-O THEN GOTO 17&0 

1720 PRINT PT DER ER EN N0GLE INDENI DENS 1NDVOLDE1 lh 
1730 LET T*d )-"N2fGLE" 

1740 LET A*f2>- ++ AF GULD <P 
1750 LET RO-1 
1760 RETURN 

1780 PRINT " JEG HAR IKKE NOGEN KNIV" 

1790 RETURN 

IBOO REM **************** 

1810 IF F&-0 THEN GOTO 1880 

1820 PRINT ,p DER £R ET STYKKE STALTRAD INDENl pp 
1822 PRINT : PRINT pf PENGESKABET I" 

1825 LET T* ( 6 } - pll ST YKKE STALTRAD" 

1830 LET AS ( 5 ) - ,H STI FT" 

1840 LET P-1 
1850 RETURN 

1880 PRINT " JEO KEMDEft IKKE KOMBIHATIONEN" 

1890 RETURN 

1900 REM **************** 

1920 IF Fl-1 AND F2-1 AND F3-1 AND F5-1 AND F6-1 THEN GOSUB 6500: RETURN 
1930 PRINT " DU HAR IKKE GJORT NOK," 

1934 PRINT 

1935 PAUSE 850 

1936 PRINT " ELLER OGSA BAR DU IKKE pA NOK" 

1940 RETURN 

20(30 REM —-- — --- — --- 

2010 ftEM * MAD r * 

2020 REM ____ 

2030 IF R<>19 OR F6-1 THEN PRINT pp DER ER INGEN. JEG KAN MADE' 1 : GOTO 2100 
2040 IF F3-0 THEN PRINT " JEG HAR INTET AT MADE MED"; GOTO 21DO 
2050 PRINT " HONSTERET KASTER OP OG Dj?R ] “ 

2060 LET AS ( 10 ) -"MEGET STORT OG D0DT 3 pp 
2D7D LET F6-1 
2100 PAUSE 25DD 
2110 Return 

4000 reh —----- — ----- 

4010 REM * TID * 

4020 ft EM____ 

4040 PRINT " DU HAR NU V*R£t HERINDE I pp t LEFT * ( TIMES . Z MIDf {TIME* . 3, Z " 

:RIGHTS(TIMES.2 J 
4050 PAUSE 2700 


OG DftftBTE DIG !" 


4100 RETURN 

5000 REM------ —---- 

5010 REM * SAVE ! * 

5020 REM _ _ _ 

5030 CLS 

5040 INPUT " START BANDOFTAGEHEN 03 TRYK <r*t>”;F* 

5043 CSR 3.6 

5045 PRINT "HU GEMMES H DET-GL-HUS" " 

5050 SAVE "DET-GL-HUS" 

5055 VS O: CLS : VS 5 
5060 CSR 3,11 

5062 PRINT "SPILLET ER NU GENT" 

5065 PAUSE 2100 
6068 GOSUB SODD 
5070 RETURN 

6000 REM -—--------- 

6010 REM * DEADEND ‘ * 

6020 REM ___ 

60?5 LET END*-' I 3 [,UT M 
6030 CLS 

6d4D FOR 1*1 TO 36 

6050 PRINT "R*r T.ITCK I ": 

6060 NEXT I 
6065 PRINT 

6070 PRINT : PRINT : PRINT S PRINT 

6OB0 PRINT " FISTGLEN GlK AF I HANDEN Pi DIG OG DftftBTE DIG >" 

6Q85 Print 

6090 FOR I-i TO 5 

6100 PRINT CHR*f7): 

611U NEXT 1 
6120 HETUftH 

5500 REM---- » - -- 

6510 REM * UDENFOR 1 * 

6520 REM_. __ _ 

6530 LET EHDt-"SLUT H 
6640 CLS 

6550 FOR 1-1 TO 100 

6560 PRINT "TILLYKKB f "; 

6570 NEXT I 

6580 PRINT ; PRINT ; PftlNt 

6590 PRINT " DU UNDSLAP PA ";LEFTS<TIME*, 2 >:", "t MIDI ( TIMEt,3.2>;"iRIG 

HTtCTIME*.2?;" F" 

*891 REM PRINT " DU UNDSLAP PA 11 ; LEFTS { TIMES . 2 > : "TIMER 14 : MlDS f TIMES ,3.4 

Ml NUTTER OG pp ; RIGHTS < TIME* . 2 " SEKUNUER T pp 

6600 PRINT ; PRINT : PRINT : PRINT 
6610 RETURN 
7030 RETURN 

8000 REM-------- 

8010 REM * DANSKE BOGSTAVER * 

8020 REM __ _ _ 

803D GEHPAT 0,123,0.0.240.40.248,160.120,0 
8040 UKft PAT 0.91.56,80,144,144.248.144.154.0 
8050 GENPAT D.124.0.0,112,152,168,200,112,0 
8060 GENPAT 0,92.112,136,162.168.200,136.112,0 
8070 GENPAT 0,125,32,0.96,16,112,144,120.0 
80SO GENPAT 0.93.32.0.32,80,136,248,136,0 
$090 RETURN 

9000 REM ...... 

9010 REM * INITIALISER * 

9020 REM _ . . __ 

9025 CLEAR : RESTORE 9180 

9026 CLOCK "ODOOOO" 

9027 LET Y*0; LET H*-"" 

9030 LET R-1: LET END*-"" 

9035 LET B=Q: LET RO-O: LET P-0; LET M-0 ^ 


9040 LET Fl-O: LET F2-0: LET F3-0 
9050 LET F4*0; LET F 5 -O; LET F6-0 
9060 DIM R*<20,17>.Ltll3 
9065 DIM D1( 20 J .D2 ( 20 3,D3( 20 3 . D4 C 20 ) 
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9070 DIM N*fll,4).T*fll,l5).At{li,35> 

90B.0 FOP, I»1 TO 20 
9090 READ P*fl> 

9100 HEXT I 

9110 FOR 1*1 TO 20 

9120 HEAD DJ£ I>.P2<I>.D3(I).D4{I) 

9130 NEXT I 

91ao FOP 1-1 to 11 

9150 READ Nt( O,Tt( I ) .AJ( I I l L(I} 

9160 NEXT 1 
9165 REM 

9170 REM ****** DATA FOR RUM ****** 

9175 ftEM 

91fi0 DATA ET BADE VffRE LSE. EN SPISESTUE. ET K0KKEH. ET FORRAD3KAMWfiK 
9190 DATA ET SOVEv^RELSE. EH KSLDEP. ET SKRaLDERUW. ET COHPUTEHRUM 
9200 DATA ET M0FKT RUM, EN DAGL3GSTUE+ ET LILLE RUM. ET ST'ORT RUM 
92JD DATA ET LEOERUM , EN SWIMMIHGPOOL. ET DRIVHUS. EH HAVE 
9220 DATA EH 0A.fiAOE. ET SKUP. ET STfifVET RUM. EN ENTRE 
9225 REM 

9230 REM ****** DATA FOR D0R£ ****** 

9235 REM 

9290 DATA 0,2.0,0.0,3,0,1,0.4,D.a.O.O,7.3.0.6.0.0.0.0.9-5 
9250 DATA di. 0.10.0.0.9r 13.0.6,0.0.6,7-Tin O, O h O, 15, 12n 10 

9260 DATA H. D, 19, 14, fl, 14,0„ 0.0.1,2.17.13.0, O. 0.11 

9270 DATA 0,17.0,0.14.16.0.16.0.19.0.17.12.20.0.1$,a.a,0.19 
9275 REM 

9250 REM ****** DATA FOR TING ****** 

9290 REM 

9310 DATA EH ,BOKS. LAST. 1. EN .ROTTE.D0D. 3, EH .DASE.FULD AF CHAM’ RIGNON3.6 
9330 DATA EN ,PISTOL.1KKE LADT.5 

9340 DATA ET ,PEHOESKAB,LAST.10 

9350 DATA EN .O0R.LAST.aO 

93*0 DATA EH .SKQ,MEGET GAMMEL DO SNAVSET.14 
9370 DATA EH .STIOE.BFUtKKET MIDT OVER.12 
93S0 DAT* EH ,KHIV.MEGET SHARP.16 
9390 DATA ET .MOHSTER.MEGET STORT,19 

9400 DATA ET .SXELET.FPa EH SOW 1KKE SLAP UD, 17 
9500 VS Os CLS : VS 5: CLS 
9900 RETURN 

9920 PEM ******************************* 

9922 CLS : EH PUT " 3*T TOF":Xl 

992 4 LFftlNT CUR* ( 27 > ; " ( ht 

9926 LPR T HT CHR»f27) 5 "l"t CHRK 41) 

9930 PLOD "UD1" 

9932 PLOD "UP2 M 

9934 LPRINT CHR*;27);"1 M :CHR»[0) 

9936 LPRINT CHR* £ 27 ) i ; CHRi f 1 ) 

9037 LPRINT CHR*(12i 
9936 LL1ST 

9940 STOP 


Oversigt 

H HJ^LP 
G GEM 
TID 

T TAG 
I IN VENT AR 


L L JEG (nr. p6 Inventor-listen) 

A Aben 

O OPSPRiET 
M MAD 

N S 0 V £or no id syd 0 st vest 
NB alslut altid med <ret > 


Hjoelp-siyr 

~b * DISPLAY VALG *E 
*IF G, r 

*IF O, o 

*GOTO HI. 

~h *D INSTRUK2. *E *B b 

~o *D OVERSIGT *E *B b 

~r * RETURN 

HI 

*1F GEM, g 

*IF TID, g 

*IF TAG, I 

*IF INVENTARLISTE, t 

*IF INVENTAR, t 

*IF UEG, 1 

*if Aben, 6 

*IF OPSPIbET, 6 
*IF MAD, m 

"1 * DISPLAY INSTRUK1. *E *T R, b 
"g * DISPLAY INSTRUK2. *E *1 R, b 
~t * DISPLAY INSTRUK3. *E * I G, b 
~6 * DISPLAY INSTRUK4. *E *1 G, b 
'‘m * DISPLAY INSTRUK5. *E 
~b *GOTO HJ^LP-STYR. 

Hjaelp! 

Hvad vil du se 

- En ordreoversigt: <0> + <ret> 

- Den fprste ordre: <iet> 

- En bestemt ordre: <R> + <ret> 

Vil du retur til spil: <R> + <ret> 


4ST" 


Kaere leeser. 

Vi haber, at du er ti If reds med proa ra mm erne i det forste nummer af SOFT 
SPECIAL. 

Skulie du ligge inde med tilsvarende gode — og maske endnu sjovere og 
bedre — programmer, du selv har lavet, horer vi gerne fra dig. SOFT er 
nemlig laesernes blad, og vi betaler op til 1000 kroner for et rigtig spaen- 
dende program. Og maske far netop dit program en fremtraedende plads 
i det neeste SOFT SPECIAL eller i "Alt om Data". 

Indsend dit program pa kassettebcmd eller disc og gerne vedlagt en ud- 
printning, Samtlige programmer testes og vurderes, inden de offentliggo- 
res. Alt materiale returneres efter brug, og bladet har fuld ret til at publi- 
cere programmet pa tryk og eventuelt andet lagermedium. 

Programmer sendes til "Alt om Data", St. Kongensgade 72, 1264 Koben- 
havn K. 
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Geometri 


COMMO¬ 

DORE 

64 



Dette program til Commodo¬ 
re-64, hjcelper dig med geo¬ 
metri en. 

Etter du har iastet RUN kom- 
mer hovedmenuen irem. Her 
kan du vaelge imellem rum- 
tang, Hade areal er og over- 
flade arealer. 

Ndr du har valgi el at punk- 
teme, dukker en undermenu 
op med de bestemte iigurer, 
Etter at have valgt en bestemt 
figur, sparger maskinen etter 
en rcekke oplysninger, hvor- 
etter den skriver foimlen for fh 
guren og svaret. 

Husk ved indskrivningen at 
kommatal skat skrives med 
punktummer. Marco Hansen 


1 REM ************** 

2 REM **** **** 

rem ******** geometri ******** 

F?EM ** ** 

5 REM ** AF MARCO HANSEN 1984 ** 

REM #* ** 

7 RE-M ** SRKKEM 3 , 7441 SORDINO ** 

REM ** #* 

REM *********** ************ ******* 

?$=" :—. mm tF ansi —181 
0 PRINT : GOSUE10080 1 PRINT" JO0"TAB< 10>F$, "1 I RUMFflMG 11 
e PRINT"30"TAB< 10>F* j"3 I FLADE AREAL 11 
0 PRINT Ir W TAB (10 > n ;" 5 I 0 VERFL AD E AREAL* 

5 FRIN7"» , 'TAFU0>F$; , 7I AFSLUTTE" 

0 GE7A$ r I Fflf-" ''THEN50 
55 I FA*- ,f U" THEN30S© 

IFA*- n rTHEK2000 
5 IFR*-"H"THENPRINPT: END 
£ IFR$="S"TH£N70' 

GOTO50 

78 A*s'"’:pR:nT ,r T:GOSUE 10000 = PRINT "WWM»I"F$; "1 I RUMFANG AF EN KUGLE" 

1 PRINT H XBmiBM 1, F*;"2l RUMFANG AF EN CYLINDER" 

2 PRINT" JMMWWF*; "3 I RUMFANG RF EN PYRAMIDE" 

PRINT'EBBBBmrFfJ'Hl RUMFANG AF EN PYRAMDESTUE 1 ' 

PRINT MPtP>|PH F*; "5 I RUMFANG AF EN KEGLE" 

75 PRINT "WtMHIfFf> "61 RUMFANG AF EN KEGLESTUB Ir 
PRINT"JMWilWTtJ"7 I TILBAGE TIL HOVEDMENU" 

S GETA* : IFA$"' :: 'THEN80 

90 A-ASC<Rf>UFflCI33ORfl>l40TAENA$* l,,| ^GGTO80 
l A"A-132:ONAGOTO100 j200 >300 ,20,400,500,700,S0 
0 INPUT 1 'IJHWRfiDIUS AF KUGLE ”iP, SV=4*n*RT3/3 : Rf J =8TR*<R> 

0 PRINT"! 4 * ir *";R«|lt3 M 

0 PRINT"RUMFANG * ,r i - FORI-lT03+LEN<;Ri >: PRINT 11 ; - NEXT : PRINT 3 " *"JSV 
30 PRINT" 3 11 -GOSUB20000 

200 INPUT 13 IJfflH0JBE AF PVRAM IDE "JH 
0 INPUT'MGRUNBUNIE X ir ;GX 

20 INPU7 M MGRUNDLINIE Y ", GY : SV*GX*GY*HX3: H*»=STR$CH) 1 GX*=STR*CGX> = GY*-STR*(GV) 
30 PRINT "K ■ f ;0Xi ,t # ,, iGVi 1, riH 

40 PR I NT 11 RUMFRNG = ";= FORI=1TO 3+LEN < H* >+LE N < GK* ? +LEN <GY$): PRINT |P ; J NEXT 

45 PRINT 1 ’ SV 

50 PRINT 1 ’ 3" 

0 OO3UB20000 

0 INPUT"^RADIUS AF KEGLE "JR 

0 INPUT"IbSJDE AF KEGLE "JH:SV=lt*Rl2#H/3=R#=STR*<R) 

O PRINT"M ii * h jR"IIT2 *";H 

30 PRINT"RUMFANG * 'VFORI-1T07+LBN<H#)+LEN<R*> : PRINT"-"; = NEXT:PRINT 1 ' *"jSV 
0 PRINT 1 ’ 3" 

0 GOSUB2O000 

S INPUT"IDTORADIUS RF CYLINDER "JR 
10 INPUT 11 MH0JDE AF CYLINDER ";H^SV**#R12#H 
0 PRINT" IRUMFHNG - ir * 1, ;R"I|12 He 1 *JKi i5V 

0 GOSUE20000 

00 INPUT'TDGKHajDE AF PYRAMI DESTUB ir ;H 
0 INPUT'’3O0VERST GRUNDLINIE X ";GX 
20 INPUT" m VERST GRUNDLINIE Y "J GY 
0 INPUT 11 NNEDERST GRUNDLINIE X ";NX 
40 INPUT n WEDERST GRUNDLINIE Y "iNY 

0 H*«STft*CH5 :GX*=STR*CGX> ^ GY$-STR*CGY> :NX*sSTft*tNX):NY*-=STR*<NY) 

3 TG=GX*GY:NG=NY*HX = SV=H* <TG+NG+SQR <TG*NO)V3 

0 PRINT"*DQ0V£RHT GRUNDFLRDE * 11 J GXJ ;GYJ ,M, ;TG 

0 PRINT")£HEDERST \ RUNDFLRDE "*";NY/ l * ,J jNG 

0 PR3NT"K ";H; , "lMtC ,l JTG; 1, ll4";NGi"it*vn-HfllKH" J TG j "1#"; NGJ "11 

00 PR3NT'’R *M : FOR I ^ 1 TO 11+LEN >+LEN < GXf)+LEN (GYi >+LEN< NYf)+LEN (NXI) 

10 PRINT"-", NEXT PRINT" -’"^3V 
0 PRINT ,r 3" 

0 GOSUE20G00 

00 INFUT n lK(H0jDE AF KEGLE STUB ";H 
0 INPUT' r W0VERST RADIUS ,r iTR 
0 INPUriHEDERST RADIUS ",NR 

0 H*-STR* cH> = TR$= STRT<TR): NR*=STR* CNR> - SY-ir*H*CNRt2+TR T2+ ^NR*TR) >/3 
5 SV$“" it* ,r +H* +" * <"+NR $* " 12+ "+TR*+" 12+ <" +NRf+"*" +TR*+" >" 


40 PRINT-M "?SV* 

0 PRINT"R : FGRI=lT016+LEN(Hi)+LEN<NRf>+LENaR*5 : PRINT ; NEXT 

0 PRIhNT , h ^'',SY 

770 PRINT" 3” 

0 GOSUB2000& 

00 A f -" 111 PR I NT" ^SWC 1 GOSUFi 0000- PRINT" WnHIfl" F*;"l ! RREAL AF ENREKANT 1 ’ 
01 PRINT"»*P8HP!"-J;''3[ AREAL AF EN PARfiLLELOGRRM" 

02 PRINT"i>IPPP»W , F$.:’ f 5l AREAL AF EN TRAPEZ" 

©3 FRINT"K>PPtPPPt"“f, "7 I AREAL AF EN CIRKEL" 

©05 PRINT"^PMPPPfilT*, "8 I TILPRGE TIL HOVEDNENU" 

01© GETA* : IFA*” |, "THEN2010 
20 A^ASC(At):IFfl<1330RA>140THEN2010 

030 A-A-132 : ONAGOT02100,2203,2300,2400,2010,2010,2010,20 
100 INPUT "3MIKH0JBE RF TREKANT MH 

110 1NPUT 11 WGRUND LINIE "; G: SV=H*G/2 ■ H*=S TRS < K > = G*= STR* < G > 

20 PRINT’ 1 ! 

30 PRINT"AREAL AF 7REKANT = =FORI=1T01+LEN<H*)+LEN<G*) PRINT"-";:NEXT 

140 PRINT 1 ' -"';SV 

59 PRINT 1 ’ 2" 

60 COSUE200©0 

200 INPUT ,r rDQSH0JDE AF PARALLELOGRAM "JH 

210 INPUT"SGRUNDLINIE "-G ; SY=H*G = H^STR^M): G*=STR*<G) 

220 PRlNT n lBREAL RF PARALLELOGRAM =" "^SV 

230 COSUB2000© 

©0 INPUT”n0H©JDE AF TRAPEZ ";H 
10 INPUT"M0VERST GRUNDLINIE ";TG 
20 INPUT^Xi'JEDERST GRUNDLINIE U ;NG 

330 SV=H*<TG+NG>72:Hf=STRf<H) : TDi^STR* CTG>:NG*«STRf<NG> 

4© PRINT"! %H; "* C" ;TGi "+ if ;NG; n >” 

50 PRINT "AREAL AF TRAPEZ s*’ f ; : F0R1 = 1T07+LENCH *) +LENCTG*) +LEN CNGf > 1 PRINT"- 1 ’ 

360 NEXT : PRINT" « ,r ;SV 

37© PRINT" £" 

38© GOSUB20000 

40© I NPUT 11 ^RADIUS AF CIRKEL il iR ■ SV=u*R12 
41© PRINT'"WflREAL AF CIRKEL ^ n * M R;''ltl2 
20 GOSUB2000© 

3000 At* ""-PRINT" JP3C" - GOSUB100 00 : PR I NT" HI M IB*I" F*;" 11 OVERFLADEF KUGLE Jr 
5 PRlNT '|*BlptlH ,| F$; ,J 3l OYERFLRDE AF CYLINDER" 

IS PRlNT")®liimrFf^ ,r 5l OYERFLADE RF KEGLE" 

5 PRINT”|»miirF*J"7i OVERFLADE RF KEGLESTUB lf 
0 PRINT" DBIABIBI Ft, "81 TILBAGE TIL HOYEDMENU" 

025 GETfll : IFfl^='”'THEN3025 

3© fl-flSC<A#>:IFfl<133ORA>143THEN3025 

49 A-A-132=ONAG0T03100,3206,3300,3400,3025,3025,3025,20 

0© INPUT"3(MRftDrUS AF KUGLE ”jR L SV=4#ir*R12 

1© PR I NT" SO VERFLADE = 4 * ir *";R,"H12 «’";SV 

20 CCSUB230S0 

00 I NPUT "H0(R ADI US AF CYLINDER 11 JR 
1© INPUT"SUSJDE AF CYLINDER ",H-SV-£*ir*R#H 
2© PR I NT" BO VERf LADE = 2 * ir *" ,R, "*" j Hi Jr * ,p ;3V 
230 GOSUB2000© 

0© INPUT-MRADIUS AF KEGLE ",R 
1© INPUT" MSI DELI N3E H " j S: SY=S#f *R 
20 PR I NT "MG VERFL ABE ir *"jRj"= l1 ;SV 

330 GOSUD20000 

400 I NPUT MOB VERST RADIUS ", TR 

1© INPUT"jIMEDERST RADIUS ”,NR 

20 I NPUT "MSI DEL INIE " jS = SV=S*n*aR+NR) 

38 PR I NT" MOVERFLflDE -"jSj 1 ’* it *<TR,"+"; NR; h «> * n ;SV 
40 GOSUB20000 

©0 PRINT 1 ' f —^ i —t —> m r— rrr i— 

©1© PRINT" 1 -tH] 1 f+f W S MI 

©20 PRINT" w 

©30 RETURN 

©80 PRINT"MMTRVK SRETURNS" : FORI=1TO20G : NEXT 
ZO1 2 OHTR*:I-A*=CHPf<13>THENRUN 
28 *RI NT" TTRYK RETURN”■FOR t=1TC200■NEXT 
0830 PRINT "TH7 : : COTO20008 
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10 DIM 
12 GOTO 170 

15 REF-; XNOTRSrwJWG ~F BY EP" 

20 DIM A rSwU 
23 Dir--; B^SCi> 

4.0 dim r $ tse . is; 

5 0 DIM B $ fS0,33.fc 
£0 FGR N =1 TO SO 
70 PRINT " 6 V ";N/' =" 

30 INPUT 

£0 PRINT "I. KOORDIMATOR =" 

ZG0 INPLET R 

IIS PRINT "2. XtfDRDlMRTDR 

120 INPUT B CNJ 

130 PRINT OM BY EM s" 

14.0 INPUT B$rN? 

150 CL? 

160 NEXT N 

loc PRINT " INDTH3 PN XH1» FAERD-TS- 1 

1ST STOP 

173 LET P=0 

1B2 LET Dae 

135 HEN " INSTRUCTION" 

230 PRINT RT 3 # 13; "CEOGRAFI", , , 
"2ETTE PRCGRRH OMHAMOLER EMMET 
GEOOHRFI„ '* . , , , "MASK A MEN UDVAEL G 
EH EN TILFRELDI£3raRRE BY vE& RT 
3RETTE EN PRIK,%/'DET ER NU DI 
N OPGRUE fit FXNDE NAOMBT P«ft S 
YEN . " 

210 PRINT RT 12,6;"TRST W/L FOR 
HT EE SPECIELLE” , 1 3 TR^ENRRDER'' 
220 IF IHK2Y|4 m " THEN GOTO 2R3 

24.0 PRINT RT 0,10; ” OECGRPFI" # , , 

* , " 3PECIELLE STR^ErtRRDER . " , , - "NY 
KSE IMG SJ H ‘, , "NYK3BING F" , , "EBELT 
DPT - . , "HRE5TUED - ' , , "fl^LBORG'L , ”03 
; J.- BT 13,0: "TR3T N7L FOR RT BEG 
/NE'E" 

253 xr INKEY$H”” THEN GOTO 253 
2B0 CDS 

273 REN "TEGNXNG RF DRNMRRK3COR 



2S3 PRINT 
330 PRINT 


370 PRINT 


090 PRINT 


420PHINT 


I delte program gcelder del 
om al gcette den by pd Dam 
markskortet, som vises at 
ZX81. 

Ferst skal man indtaste ho- 
vedprogrammet. Dereftei 
skrives GOTO 15, og alle byen 
ne, incl. koordinater og data 
indtastes. Programmet er nu 
klar iil bmg. Hvis man ved el 
uheld kommer til at BREAK e 
programme!, genopstartes 


det ved GOTO 1. 

BRUG ALDRIG RUN!!!, da del- 
te sletter alie data, og dermed 
masser al arbejde. 

Hvis du vil tillcegge ilere byer, 
kan variablen N i linie 60 go¬ 
res stone. Gares variablen O i 
linie 612 stone, bliver man 
hart flere gange og omvendt. 
Programmet SAVE's ved GO¬ 
TO 9998. □ 

Thomas Nielsen 


5KAGEN 73TV407fVEW ER DA 

NMRRKS NORDLIGSTE BY M jSRRIWC; 

/34/^?/BY£N Eft UEND&YSSEL5 
HOUEDSTAB FREBERXKSHAUN ,'07 

/37/G0TE6GRG - *.*,*.* . 

BR0NDERSLEU 734 /35 7VftR X 

1900 EN STOP MAPKEOSEY ARLB 

GRG 734/32/BYEN HRR DftMMA 

RKS ENESTE TUNNEL. THXSTED 

/S7/93/DET £R THYS STORSTE BY 
LEM^IQ 733x277 

BYE NS SIDSTE STflVELwE ER UIG 
5TRUER /25/S6/B OG OS H 

OUEDKUARTER LIGGER HER UIGORG 

/SB/fiS/vAR I IBS© J/LLfiHD 
S H0UED5TRD HCBRQ 73 

4/00/LXGGER INDER5T I MARTRGER F 
■JOPD RRNDERS /34/S6/&UDE 

NAAEN UDL05ER I BYEN ORE 

NAP 739/25/HUNBESTED - p 

. EBELTQFT 

0/39/23/QDDEN - .. 

AARHUS 735 73£ 

7BYEN ER JYLLANDS ST0R3TE BY 

SXLKESQRQ 3/3C/23/S ENESTE 

RRCERERNE - ? DANMRAKHERNINC 

/27/23/DEN KRLDES HftN&SK 
ERNES BY R1NGK0BIN& 7 

2372371. 5TAOEL5E - X BRYLUP95ER 
MONI SKOERN 724720/MAD 

5 FRR K0RSBAEK KOM HERFRA UE 

OLE 732/17/PLLRN SIMONS 

EN BOR HER E5B9ERG 

/24/15/DANMARKS ST0RSTE HRUN 
LIGGER I FREDERICXR 73371 

6/ORNHRRKS ME ST MODERNE BRYGGERZ 
= HRDERSLEU 73© 71l/BYEN t^I 

GGER I 50NDERJYLLRND RISE 

726/137PRNHRRKS RELDSTE 
DOHKXRKE = T TSNDER 

/26/0/DEN STORSTE GRRENSEB 1 / = -> 

.*,. S0HDEREORG 7327&XHER 

ORR CHRISTIAN DEN 2* FRNGE NIC 


OELFRRT B/33/U/DEN SIDSTE ST 

RUELSE = FRRT ODENSE 

/36/14/HER LEOEDE EN BER0MT F 
ORFRTTER NYBORG 73©713 

/KORS0R - . 

3UENDBORQ /37/10/HERFRfl G 

RRR EN BRG TIL TRflSINGE RU&KfiftZ 
NG /33/8/DET ER i_RN&ELRND5 

STORSTE BY NYK0BING 9d 74 

S7137MORTEN FROST ER FSDT HER 

KRLUNDBORG /41/16/DEN 

FEMTflRRNEDE KXRKE LXOGER I HOE 
BflEK /45/16/BYEN LX&GER U 

ED XSEFJORDEN PREDERXKSORE 

RK 747 719 7DANMRRKS STORSTE KRUDT 
DRERK ^ HELSXNGQR 75073© 

7HER LIGGER SLOTTET KRONBORG 

H XLLEROD 743/12/ HER LXGG 

ER FREDENSBOR& SLOT FREDERX 

K5SUND /47/ie/MER SPXLLES DER U 
XKINGESPIL ROSKXLDE 7 

47 716/HER FXNBE5 ET UIKINGEHU5EU 
H K0BENHRUN 750 xiTVDRQ 

NNXNGEN BOR I DENNE STORE BY SL 
AGELSE /43/14/HER LIGGER S 

Tp PEDERS KIRKE RING5TED 

7 40 714/BYEN ER EN GflMMEL VlK 
INGE&Y KOBE /45/1 

4 /BYEN LIGGER NRER KSEfENHRUN 

NRE5TVED /4&/11/HERLUF5 

HOLM KOSTSKOLE LIGGER X KOR30R 
741 713 71^7 BORG - pppppp 

UORD XNGBORG 

74S797HER LIGGER GRRBETRRRNET 

STEGE /49/8/EYEN 

LIGGER PAR HON NYK 

0BING F /46/S/DET ER FRL3T&R 

5 HOUEDST RD ftflDBY 

744 75/PUTTGARDEN - ..... 

N A K S K OU *' r 4 1S /HE 

R LIGGER ET DMT ALT BKieSWEfiFT R 
0NNE /55/4/DEN LIGGER P 

RR BORNHOLM 
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is&— 

46E' PR TNT, 

^ i tm ^i 

4TG PR IHT 

=* Si i 

i30 PR XHT 

™| SSI 

A9S print 


FOR N=e TO &E 

PLOT NjrftS 

PLOT N.,1 
NEXT N 

FOR M = 1 TO 4-2 
PLOT 3.-N 
PLOT 1S,H 
PLOT 62,N 

REn" 1 "" PRlKNU iG AF BYER" 

LET C=XNT iRNOaSOl 

IF 0=52 THE! 1 * GOTO 1SOO 

jp Fl$ ■ C , 131 "”® ,l TMEN L-OTG a 

FOR TO 1© 

PLOT R(Cl *BtC> 

FOR M-O TO S 
NEXT H 

UNPLOT nICfl .BfC) 

hekt h 
’ LET 0=0+1 
i LET O 

PRINT RT 2^1;"3YMBUN 7" 

■ INPUT O^Hi 

: if cidi oR$tn then goto a 

i PRINT RT S ,l; "RIOT JOT "; AT 
E>ET UflR" 

I FOR H=S TO 13 
| PRINT RT |'f y i; R$ VC^N-4-1 

■ NEXT W 

IF U=© THEN LET P=P + 1(S 
IF THEM LET P=P+S 

LET P$iC,15; =‘‘S" 

PRINT RT 13,13;P 
PLOT R(Cl,8tO 
GOSUB 120® 

GOTO 6E0 
PRINT AT R f l;" 

IF 0=1 THEN GOTO 130© 

LET 0=1 
U 


INK 
O <3 

"7 

53 

Li& 

12 

O 7 

30 

H = 

1 - 

NT 

AT 


F 

OR 

t’b© TO 24. 

P 

L 

N 

RI 

FT 

EX 

MT AT 

U t 2 TO 

T N 

F 


T A CCi ,B CO 

G 

L 

05 

ET 

UB 1230 
R|EC, 151 ='! 

G 

GT 

O 600 

P 

RX 

NT AT 0.0; -1 



, r , ^RA SLUTTER 

&tageoorafITIME" 


1332 IF P s50D THEN LET 0$s TRETT 

3H UOPNHSELIGT“ _ ^ , _ 

1334- IF Pi BOB PND P i *fcS0 THEN LET 
OS-'TLL= ! JE 3MUKT" _ , _ 

-- 533 IF P -1 =460 AMD P > ^-00 THEN LE 
t C|="TI PERFEKT' 

3.333 IF Pi=400 RNO P > 32© THEN LE 

T G^="NI GQDT" 

1343 IF P<=32® AND P>270 THEN LE 

T Q£s” OTTc RIMELIGT*- 

'54.2 IF Pi =270 RHD P)2®3 THEN LE 

- os=»SYU NOGENLUNCE" 

1=4.4. IF P < =200 AND P > 150 THEN LE 

T 3$="SEKS DARRLIGT" 

1116 IF P < =150 AND PJ30 THEN LET 
■25= r FFH SINDSOPRIUENOF" 

i=l£ IF Pi=3B AND P)6 THEN LET D 

2 = ,H 7RE PR0V RTLAS ” 

13SO IF P=S THEN LET ®£="MUL 
FPYGTELIST' 1 

I5bO PRINT RT S ^ 7; "t>U FIN ";0$tl 

TO 7i 

1572 PRINT RT 10,7;O$fS TO i 

1575 PRINT RT 13,6; "TAST 0 FOR N 

YT -3PIL rr ; AT 14,6;"™ST 3 FOR AT 
STDPPE" 

1532 IF INKEV*="5” THEN STOP 
1520 IF IHKEV*="0“ THEN GOTO 1S& 

1305 GOTO 1500 

1533 FOR N=1 TO 30 

151E LET R$tN.15>=“ " 

152S NEXT N 

1330 CLS 
154-0 GOTO 1 
SQ30 FOR N=1 TO 50 
5010 PRINT E*(N ) 

0320 NEXT N 
9957 57GP 
= 935 5B ; JE 'GE®' - 
9995 GOTO 1 



Budget 


I dette Me, men smarte bud- 
getprogram har du mulighed 
for at indtaste torskellige ud- 
gifler og demaest fd din Com¬ 
modore 64 til at Icegge talle- 
ne sammen og komme med 


et flot skema.D 


5 DIMB$a5;, B< 15 > 

10 PRINT 11 !® I F0RSTE KQLONNE SKRIVES ART" 
20 PRINT"® I ANDEH KOLONNE SKRIVES KR." 

30 PRINT "®«fl TRVK RETURN" 

40 GETfi$ : IFA$OCHR$< 13)THEN 40 
50 PRINT"! BUDGET ■ " 

60 PR I NT" ®ART", , “ KR. 11 1 ALT “ 

70 PRINT"- 

80 FOR T-i TO 15 
90 INPUTB$(T;« 

108 PRINT"!",,; : INPUTBtO 
Ifi=iM+Bt: I ) 

PRINT"!!", , , Ifi 
NEXTT 

PRINT"- 

PRINT" I ALT'S , , IA 
GETA$: IFA$OCHR* < 13 > THEN 160 
PRINT"! BUDGET =“ 


F. Trap 


lie 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

248 

250 

260 

270 

280 

290 


PR I NT" NR ART", , "KR. "" I ALT" 

PRINT"- 

FOR T-l TO 15 
PRINT T;B$(T> 

PRINT"!",,B(T) 

IS=IS+B<T> 

PRINT"!",,, IS 
NEXTT 

PRINT"- 

PRINT"! IALT",,,IS 

GETA$ : IFA$OCHR$< 3.3 >1 HEN 280 

PRINT"!® HVILKET NR. 0NSKES AENDRET 1 


300 PRINT"® CHVIS IKKE TASTES 
310 INPUT"® NR.",NR 
320 IFMR-0THEN 170 
330 PRINT"® ART",,"KR." 

340 PRINT" ®" £$<HR),,B<NR > 

350 INPUT"®";B$<NR> 

360 PRINT"!",,,■INPUTB<NR) = IS~0 
370 GOTO 170 
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Mastermind 


& 


o'\ 



Mastermind h0rer til marke- Spillet er opbygget, s6 com- larver, - naturligvis alt efter, te kombination er ikke nod- 
dets mesl papulae re spit. I puteren selv bestemmer, om hvor dyglig du er. Bemcerk i vendigvis forskellige. 
denne udgave passer del til der skat gcettes lem eller seks 0vrigt, at tarveme i den skjul- I. M. Laursen 

Commodore 64. 


20 POKE532S0 * 11 : P0KE53281 >\X SPRINT" H#! 11 

30 PRINT M JW^IWillI«a NH3TERMIND P' f 

4e pr i ht " mmamasREGLEk j-n?" 

50 GETfl* : IFR*= J<n THEN50 
60 IFR*= ,, N"THENZ=6 : GOTO170 

70 PR1HT"mmmmmmMXMWEREH UDFVLDER a FELTEP MED TIL- F0ELU1GE FRRVER. 
30 PRINT"JWF. EKS* s» -4 <=T1 <=ii IV 
90 PRINT'MIKGMBlNflTIONEN SKRL DU SRR GHE1 

100 PRINT "iMsF'a* VI SEP DIG HVOR MHNl-iE FRRVER DU HHR PL8CERET RIGTIGT. Jl 

110 PRINT"VISER DIG HVOR MRNGE FRRVER DER ER R1GTIGE, ,l ; 

120 PRINT " MEN S1DDER F0RKERT. " 

130 print" jmrrftVK pmm aj«. ■■ 

140 GETR* ■ I FfiS-" J 11 THEN160 

150 GOTO140 

160 2=5 

170 S=1 

180 D=e 

190 L“1 

199 R£M*#**#4!*#**#*#*****#*##**##«#*#*#* 

280 REM GPRETtE SKRERNBlLLEDt 

210 PRINT" TJSfcfifcllFiS TERMIN sfcfcttfsfc W&F fr 1 f 

220 FGRX=0TG24 
230 F0RV=1T09 

240 POKE1024+29+Y+ X#40),160 : POKE55296+20+Y+t X#40).0 
250 NEXTY-NEXTX ■ 

260 IF2*6THENPR 1 NT 11 DtWMC YRN=4:in" 


270 PRINT"ittWWVlD=2" ^ PRINT : PRINT ,, S^P0N=6" : PRINT'nBL^^ 1 -PftINT“fflQUL-6a B REM NHESTE OPE T 


710 GETRS 1 IFR$=""THEN710 
720 PRINT"'! 

730 3 F0f = u N" THENPPI NT" TTl" : GOT0490 
740 IFfi#= JJ J" THENPRINT"TTT' -GGTO800 
„ 750 GGTO700 

800 REN SflMMENLIGNING 
810 P=0 ; F=0 
820 F0RX=1T04 

330 IFF00=0 CX > THENP=P+1 : F < X >=F t X >*10 ■ G<X >=U < X >#100 

849 NEXT 

900 F0RX=1T04 

910 FOPY=1T04 

920 IFX-YTHEN940 

930 IFF<X>~GCY> 1HENF=F+1 : F<X)=F<X>* 10 -G<Y>~G<Y>*190 
940 NEXTY 
950 NEXTX 
960 FDRX=1TG4 

979 IFG<X»100THENG(X^G<XV10W 
930 1FFCX»10THENF<X>=F<XV10 
990 NEXT 

999 R EM#* #*#*#**** *#* **#** *# * *** ******* # 

1000 REI1 POINTGIVNING 

1010 POKE1055+<L*40 ),P+48:PUKE1057+O-#40>,F+48 
1020 FORX^lT03-P0KE55326 +X+(l*40 ),\ NEXT 
1030 IFP=4TNENFGRX=1T 0800 NEXT GuTO1200 
_. „ Iti99 REM######*##*##*###****#*********** 


230 PR I NT" *F=RIGTIG ” PR J NT 111 PLHCtftE l" 6 
290 PR I NT" ;iF~R i GT IG" PR 1 NT M F RRVt" 

299 R EM# #*** *** ****#***#*##************* 
309 REN GENERERE FRRVER 
810 FORX-lTC4 

320 F<X)=lNTtZ*RNIKl>>+9-Z 
330 IFF<X>-4THENF<X>=2 

349 IFF<X>=5THENF<X>*3 

350 NEXT 

399 REN########## # ***** * * *#** * ## #* ** ** * * 

400 REM INPUT 

410 PRINT "IFORSTE FFlRVE ? N ; X= J : GUSUB500 
420 PRINT"nRNDEN FfHRVE ? H : X=2; GOSUB5O0 
430 PRINT"OTREDIE FRRVE ? n - X=3:GOSUB500 
440 PRINT"TFJERDE FFlRVE ?" : X=4: GOSUB500 
450 GGTG700 

500 GETRS : IFR*=""THEN500 
510 IFR*="2"THENGCX>=2 = GOTO600 
520 I FFi*=" 3" THENG (X>=3 ^ GOTQ600 
580 IFR#- M 6 JJ THENG (X > =6 : GOTO600 
540 IFRS=" 7 "THENGCX)=7:GOT0600 
550 IFR*="8"THENG tX > =8 : GOTO60O 
560 I FZ I *6RNDRS= JJ 4 " THENGCX^ =4 i GOTU600 
570 GOT0500 

600 PQKE55316+1 X*2 >+< L#40 >,G<X 1 -i 
610 RETURN 

700 PRINT"HER DU SIKKER? J-N" 


1110 L=L+2 

1120 IFe;l+!V2=13THENF0RX=1 I Q8R0 : NEXT: GOTO 1203 
1130 GOTO400 

1200 REM OR1ENTERING 1159 REM*#***#**#**##*###**##*********** 

1210 PRINT" 1 

1220 L=(L+1 V2 : D=D+L : R=D/8 

1230 IFL-13THENPRINT""nRK. LUDO ER NOK NEPE^OIN ST1L.“=S=1 D=0 GOTO1300 
1240 PRINT' flWDU KLRREDE DET I - f L;" FORS0G* lt 

1250 IFS>lTHENPRlNT , 'MWDi I GENNEMSNIT ER " INT<R#100>Xi0@, " FORS0G" 

1260 S=S+1 

1299 RE M# * *#* * *# ** # *## **#*#*# * *** ** * *** * 

1300 REM NYT SPIL? 

1310 PR I NT" .WEMlPiUOUiUUl^^ IL. DIJ PR0VE I GEN? J-N" 

1320 GETRi IFR*= ,,M THEN 1320 
1330 1FR*="J"THEN1400 
1340 IFR#^"N' J THEN10 
1350 GOTO1320 

1399 REM******************************** 

1400 PEM SVRERHEDSGRFlD 
1410 IFZ=6THEN1450 

1420 IF L > 70RZ <4T HENGOT 0190 

1430 PRINT"ItfP09 PRO - NU FRRR DU £N FFlRVE TIL, 11 
1440 Z*6FORX=1TO4000‘NEXT GOTO193 

1450 IFL=13THENPPINT" MMOK, MEN KUN MED frm FfiRVER."^ FORXs1TO4000- NEXT 

1460 IFL=13THENZ—5 
1470 GOTO196 
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0 SP = 3 

1 0 PR I NT " TJ*" : POKE53230.. 0 : PUKE53281,0 : K= 1924 - POKEb50, 12S : L=1024 
20 L.-L+I ; IFL=1143THEM41 _ 

30 Pul EL - 35 ■ ■ ■ 

is»~ Den kinesiske 

50 x=i ■ v=i : dx=i : dv=i ■ m mm 

4+404V, y 1 I I Mr Du skal gennembryde muren 

s sss&riSW' ? 111UI ss^tr^z^ 

90 POKE 1024+X+404V , 32 ml “ 

100 X-X+DX . & 

110 PRINT"Sfii!M<!M(!ll!fiMiTifiT;f=T:!;TiT;T;T;T;Ts l f;TiT: , FiT;T:T:TiT:TjTiTiT^iTiTiTiT:TiTi1 1 ' - PO 
120 GETfi$ 

i 30 IF hT— 11 L "THENPOKEK , 32 : POKEK+ i 9 32 : K—K+l ♦ POKEK*1 .* 196 ; POKEK,196 
140 I Ffi* =" fl “ THENPOKEK, 32 = POKEK+1 , 32 = K=K -1 POKEK*1,136- POKEK, 136 
150 Y=Y+BV 

160 IFX=10RX=38THEHDX®*DM=PG-PG+5 

170 IFV=lTHENIiV=~DV ; P0-P0+5 --——' 

180 IFV-24THENDY--DY=GOT0300 

130 IFPEEK< 1024+X+40#V> =35THENDX=-BX ♦ PG-PQ*1 : GGSUB1080 
200 IFPEEKa024+X+40*Y> = 196THENDY=-DV * PO=PO+10 ■ GOSUB1000 ■ GOT0100 
210 GOT060 /p ? t 

360 PR I NT M RRMTE JORDEN " ■ P0KE532S 1,2- SP=SP-1 

310 F0RG=1TO3000■HEXTG 
326.IFSP-0THEN340 
338 GOTO16 1 1 ■ t * 

340 PR I NT" FRR HU IKKE MERE FOR DEN 10 0RE" 

350 PRINT N j^MDU F1K IJ ;PG; ,J POINTS" 

393 END 

1 000 F0KE5423G,15:P0KE54277,15- PGKE54273,255 -P0KE54276-17 
1020 P0KE54273,34 : P0KE54272,75 
1030 P0KE54273,45 : P0KE54272, 126 
1035 P0RE54273,51 = POKE54272,198 
1040 POKE54276, U = RETURN 



Du skal gennembryde muren 
med din bold og bat. Battet 
kaldes liem ved at trykke p 6 
"a" eller "Y\ somogsd er sty- 
ring til h^jre og venstre. 

Janek Matcher 




Skcerm- 

koordinater 


"PRINT AT" funktionen: Dette 
program viser, hvordan man 
kan skrive pd et vilkdriigt sted 
pd skcermen, pd en nem 
mdde. VIC 20 har som be- 
kendt hverken en "PRINT AT" 
funktion eller en "'POKE'' 
funktion, 

Palle Nielsen 




k WNk 


VIC 

20 





1 REM PflLLE NIELSEN --—_ ~ 

2 REM PRINT NT 

10 PRINT'Tl" : PRINT"HVILKET ORD VIL DU SKRIVE ":INPUTB* 

20 PRINT"HVOR PRR SKRERMEN. BRUO KOORDINRTER":INPUTX/Y:PRINT".T 

30 IFY>23 ORVC0THEN 50 

35 F0RR“1T0V ; PRINT : NEKTR 

40 IFN>22ORX<0THEN50 

45 PRINTTRBCK>B* : OOW0 

50 PRINT"KOORDINRTERNE DU"R IKKE" : GOTO20 

70 FORN*1TO3000 : NEXT '• GOTO 10 
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Cosmic Killer S 


Cosmic Killer er et Space In- det er maskinkode dcda. 
vader-spil, med sprites, iarver Spillet, dei keier pd en CBM- 
og 1yd. N6r spillet indtastes 64, er selvlorklarende. 
skal du vaere omhyggelig 

med DATA-scetningeine, da Niels Lavsten 



0 REM LflVET ftF NIELS LftUSTEN 

1 DATA £4, 1 73- 12, 64 - 1 @5/1, 14 i - 12, 64, 205,13,64, km - 40, 234 , 174, 10, 64 -234 

2 DATA 224,246,206,2,162,0, 169-0,bS, 141,0-212,232,189,8,65,141,1 

3 DATA 212,232,189,0-65,141,13,64,169,0,141,12,64,232,142-19,64,70,43,234 
19 FORI=6 14*6+256 TO014*0+256 +56■REh Dfi■POKE I - A■NEX T 

11 REM 

12 REM MUSIK-MASK1NKODE 

13 REM 

19 POKES14*4+14,1 POKES14*4+15,0 

20 POKE54272-0■PQKE54273-6 -AN=3 

21 POKE 54236,15 

22 POKE 54277,255 

23 POKE 54276,24® 

24 POKE54276 - 17 

26 POKES T4#4+10,00 POKES14*4+11,65 

27 POKE614*4+12,0 ; POKES14*4+13,1 

28 DATA 154,21,15,100,28,15,154,21,15,186,20,15,154-21,15-47,16,15 
23 DftTft 63,13,15,37,17,15,167,14,38 

30 DftTfi 147,8,15-205-10,15-107,14,15-47,16,30,205,10-15,156,13,15,47,16,15 

31 BfiTfl 37,17,30,205,10,15,154,21,15,108,20,15 

32 DATA 154,21,15,188,28-15,154,21,15,47-16,15 

33 &ftTfl 63,13,15,37,17,15 

34 DftTft 107,14,30,147,3,15,205,10,15,107,14,15,47,16,38,153,3,15 

35 DftTft 37,17,15,47,16,15,107,14,15 

36 DftTft 154,21,15,100,20,15,154,21,15,100,20,15,154,21,15,47,16,15 

37 DftTft 63-13,15,37,17,15,107,14,38 

38 DftTft 147,©,15-205,18,15,107,14,IS,47,16,38,285,10,15,156,13,15-47-16,15 
33 DftTft 37,17,30,205,10,15,154,21,15,100,20,15 

40 DftTft 154,21,15,100,20,15,154,21,15,47,16,15 

41 DftTft 63,13,15,37,17,15 

42 DftTft 107,14,30,147,8,15,235,10,15,107,14,15,47,16,30,153,3,15 

43 DftTfi 37,17,15,47,16,15,137,14,15 

44 DftTft 47,16,15,37,17,15,63,13,15,154,21,30,216,12,15,227,22,15,154,21,15 

45 DATA63,13,30,114,11,IS,154,21,15,63,13,15,37,17,30-0 

46 FORI=16640 TO16640 +246■READ©- POKE1,ft ME XT 

47 REM 

48 REM MELODI-DftTft 
48 REM 

67 DftTft 160-0,185,112,7,201,32-240,14,201,36,240,10,201,27,144,6,163,1 

68 DftTft 141,6,64,36,200,132,40-144,230,163,0,141,6,64,36 

70 FORI=24 736T024 736+33■READft■POKE1 - ft:HEXT 

71 REM 

72 REM 4 NEDERSTE RftEKKE 

73 REM 

75 DftTft 172,2,64,163,132,133-251,163-7 

77 DftTft 133-252,234,234,234,177-251-201 

78 DftTfi- 32 - 249,48 - 201,36,240 - 44,281,27 

81 DftTft 144,40,234,234,234,24, 165,251 - 105,40,133,251,144,8,24,165,252 
83 DftTft 105,1,133,252,234,163,0,145,251 

85 DftTft 24,165,252,105,212,133,252,173,5,64,145,251 - 76,33,36,234,234,56 
87 DflT-ft 165,251,233,40,133,251,176, 7,56,165,252,233 -1 -133,252, 234,165 
S3 DftTft 252,201,3,208,177,234,234,152,24,103,4,64,168,284,3,64,144,154,36 

30 fOR1=245761024576+105:READS:POKEI,ft■HEX T 

31 REM 

52 REM SPACE.I. BOMBER 

53 REM 

180 DftTft 163,0,141-1,64,165-152,133,251 

110 DftTft 163,7,133,252,160-0-234,177,251,201-0,248,18,201,27,144,14-201 
120 DftTft 32,248,10,201,36,240,6,168-1,141,1,64,36,234,132,0,208,5,168 
130 DftTft 33,76,11-83,234,56 -165,251,233,40,133,251,176,8,56,165,252-233 
140 DftTft 1-133,252-234,165-252-201,3,208,135,36 
150 FORI“22773T022773+74■READS:POKEI,ft NEXT 
160 REM 

170 REM UNDERS0G S1DERNE 
180 REM 

130 DftTft 165-4,133,252,133-254,163-1,133,251,163,0,133,253, 168,255-208 
280 DftTft 177, 251 - 201,27,144 - 30,201- 32,240-26,145,253,163,32,145-251,24,J 65 
210 DftTft 252,72,105,212,133,252,133,254,177,251,145,253,104,133,252,133 
228 DftTft 254,234,132,255,203,12,24,165 

230 DftTft 252,185,1,133,252 -133,254,76,16-85,132,231,283,183,165,252- 201 
240 DftTft 7,203,193,36 

250 FORI=©14+5+256*570©14*5+256*5+73■REftEA:POKE 1,A NEXT REM FLVT TIL VENSTRE 
260 REM 
270 REM 

280 DftTft 162-3,202-1?3>8,64,201,1,240,103,173,1,200,201,255,283,48,234 
290 DftTft 165,137,201,10,208,89, 234 - 173,16,208- 74, 74, 144,12, 1 '73,16- 208- 9 
300 DftTft 1,141,16,203,234,76,72,88,173,16,283,41,254,141,16,288-234-173 
310 DftTft 2,203,141,8,208,173,3,208,141 

320 DftTft 1,203,234,234,172,1,203,136,140 - 1,283,234,234,234,192,10 - 208,14 

330 DftTft 169,255,141,1,200,169,8,141,8,64,76,133,88,234,173,31,208,74 

340 DftTft 176,7,224,8,286-153-76,133-83 

358 DftTft 169,1,141,0,64,76,00,97 

360 F OR J =225481022663■READAFOKEl-A : MEXT 

370 REM EOMBE 

338 REM 

398 DATA 162,l-202,165,197,281-44-248,8 

488 BATA 281-47, 240,57,76,136,86,234,173,2,208,24,165,1,176,27,201,64 
418 DATA 248,7,141,2,203,76,136 - 86,234,173,16 -208-74,74,176,79,169,64,141 
420 DATft 2,208,76,136,86,234,173,16,208,9,2,141 - 16,288-169,0,141,2 
430 DftTft 208,76,136-86-234,234,56,173-2,288,233,1,144,27,201-24-248,7,141 
440 DftTH 2,206,76-136-36,234,173,16,208,74,74,144,26,163,24,141,2,208 
450 DftTft 76,136,86 - 234 - 173, 16,203,56 - 233,2,141,16,288,163,255,141,2,208 
468 DftTft 76-136,86,224,0,208,132,76,20,88 

478 FORI=22038T022030+126■REA&ft■POKE I,ft■NEXT■REM FLVT RUMSKIB 
430 REM 
498 REM 

588 DftTft 163,192,133,251 - 163,6,133,252,169,232,133,253,169,6,133-254- 160 
518 DftTft 8 ,234,192,63,283,7,165,252,201,3,208-1 - 96,234-136,177-251,201 


520 DftTft 27,144-31,201,32-240,27,234,234-145,253,169,32,145,251,165,252 
530 DftTA 72,24,105,212,133,252,133,254,177,251-145,253-104,133-252,133,254 
540 DftTA 234,192,0,208,208,165,252,234,233,1,133,258,133,254,76,13,83 
550 DftTft 0,73-0-143,38,182 

569 FOR1-21248T021248+9lREflDfi : POKE I,A NEXT REM FLVT SPACE 1 MED 

570 PR I NT" 3MMMV SHOE J RE >',VEMSTRE 'C',SKVD 'H'" 

530 R0KE52,43:POKE56,48;POKE3328I,15:POK£53280,6 

590 DATft 168,8,169,32,153,132,7,208,192 

600 LATA 41,208,£48,234,163,191,133,251,169,7,133,252,160,0-177,251,201 
610 REM 

628 DATA 0,208,48,234,234,169,32,145,251,160,40,177-251,201 - 32,208,29-234 
638 DATA 169,0,145,251,24,165,252,10S 

640 DATA 212,133,252,168-8-177,251 - 160-40-145-251,56-165,252,233,212,133 
658 DATA 252-234,234,281,36-240,223,234 

652 DATA 234-165,251 - 56,233,1 - 133,251-176,190-234,56-165,252,233,1-133 

654 DftTft 252-201,3,206,178,36,35,82,36 

666 FORI“20392TO20992+102 REA Dft:POKE 1,ft - NEXT 

670 REM FLVT S.I. BOMBER NED 

688 REM 

630 P0KE52,43 : P0KE56-46 

700 P OR1=0 T097 READA■POKE t +814*5,A:NE XT 

710 DATA 168,8,24,169,48 - 133,52,169-40,133,56,173,14,220,41,254,141,14 
720 DATA 228-165-1,41,251-133,1,162,0,183-8,208,157,0,46,232,224,8, 288 
730 DATA245-200, 173,23,80,24,105, 1,141,29,60,173,32,88 - 105,1 - 141,32 
740 DftTft 80-132, 16 ,208,223,165,1-9,4,133 

750 DftTft 1-173,14,228,3,1-141,14,220,173,24,208,41,24©,24,105,12,141,24 

768 -DftTA 206,163,8,163,288,141,£9,88,169,48,141,32,88,36 

770 SYS 814*5 REM FLVT TEGN TIL RAM 

810 DATA189,175,141,217,48 

820 DATA169,175,141,218,40 

838 DftTA169,16 ,141,221,48 

848 DftTA169,4,141,222,4© 

©50 DATR169,1,141,223,48 
868 DATA 169,175,141,233,48 
870 DftTA163,175,141,234-48 
860 DHTA169,16,141,237,43 
898 DATA 169,4,141,238-4© 

588 DATA169,1 - 141,239,4©,96 

910 FOR I*©32T0©©2-REflDft:POKEI-fl:NEXT 

928 DATA 163,250-141-217-43 

938 DATA169-250,14J-218-4© 

948 DATA169,4 -141,221-46 

350 DATA163,16,141,222-4© 

968 DATA 163,64,141,223,48 
970 DATA169,250,141,233,48 
360 DATA 169,250,141-234,4© 

390 DATA169,4,141,237,4© 

1888 DATA169,16,14|,238,4© 

1818 DATftl69,64,141-239,46,96 

1828 FOR I=©9610946 - READ©■P0KE1- A:MEXT 

1838 DATA169-4,141,0,48 

1048 DATfll63,4-141,1,48 

1050 DA TA163,12,14]- 2,48 

1060 DATA163,12,141,3,48 

1870 DATA169,12,141,4,48 

1030 DATA169,12,141,5,48 

1890 DATA169-4,141,6-4© 

1100 DATA169,4-141,7,48,36 

1110 FOR I=43152T043152+40:READA:P0KE1,8■MEXT 
1120 DATA163,!,141,0,48 
1130 DATA169,1 - 141-1,4© 

1140 DATA169,12,141,2,4© 

1158 DATA169,12-141,3-4© 

1168 DATA169,48-141,4-48 

1178 DftTA163,4©- 141,5,48 

1180 DATA169,64-141,6,48 

1190 DftTA169,64,141,7,4©-96 

1280 FORI=491937049193+4©;READR;POKEI,A NEXT 

1228 DATA 169,8,141,8,4© 

1238 DftTA169,8,141-1.4© 

1240 B0TA169-8 ,141,2,4© 

1258 DftTA169-125-141,3,4© 

1260 DATA163,125,141,4,48 ^ " 

1270 DATA169,8,141-5,48 _ '- 

1288 DATA 169-0,141,6,48 
1230 DftTft169-0,141-7,48-36 

1380 FOR I=4 3234 T043234 +40 1 READA■POKE1,A:NEX T 
1310 DATA 169,64,141,0,48 
1320 DATA169,64,141,1,4© 

1330 DATAlbS,48,141,2,4© 

1340 DATA163,48-141,3,4© 

1358 DATA169,12,141,4-4© 

1368 DATA169,12,14|,5-48 

1378 DATA169,1-14J-6-48 

1386 DATft169,1,141-7,4©,9b 

1336 FORI=43275T049275+48■READ©:POKE1,A■HEXT 

1400 A =1024+38:X=152 : V=5324© W=1824 Y=229 

14J0 POKE50270,PEEK<53270>OR16 

1428 POKE 53282,2:P0KE53283,0 

1430 F0R1=8T07 REftDft:POKE£7*8+I+122©8-AMEXT 

1448 DATA63,175,175,255,21-4,16-64 

1458 FOR I=0T0 7■RE ADA■POKE 29*8+1+12288,A■NEX T 

1460 DATA252,175,175,2S5,©4,d,16-64 

1470 REMSTOP 

1430 FOR I-254*64 T0254*64 +63 - POKE I - 0 - NEXT 

1490 FORI=254*64+1TQ20+254*64$TEF©■POKE 1,32-NEXT 

158© FORI=11*64T0l1*64+63:REftEft:POKEI,A:NEXT 
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isie data 0 ,o, 0 , 0 . 0 ,e, 0 , a, 0 , 0 , 0 ,©, 0 , 0 , a, 0 , 40 . 0 , 0 , 170 , 0 , 5 .. 170 , 12 s 

i 526 DflTn 101 I 70. 160 ,26; 255, 164,27, £55, 228, 26. 255. 164 - 26. 170, 164.26,170,164 
1530 tffiTfl 26.150,164,42.2a,163.42,20,163,40,21,40.40,223.40,32,247,200 
1540 DHTR 35.255,200.240 
1550 REM 

1563 REM SET IRQ VECTOR 
1570 REM 

1530 POKE56334.PEEK < 56334 >0NL254 
1530 POKE783,14 : POKE783,66 
1600 POKE56334.PEEKt56334)QR1 
1610 REM 

1620 REM SET SPRITE REG1STRE 
1630 REM 

1640 POKEV+1,255:PGKEV+16,0 
1650 POKE53276,255=POKEV+21,255 
1660 PQKE53205,2‘F0KE332M,8 

1670 P0KE53287,4:PQKES3233,6:POKEV+2.150 POKE2040.254;FOKE2041,11 
1680 FORV=0TO22S : POKEY+3.V -NEXT 
1685 POKE53279,0 
1633 PRINT' 1 n 11 ; 

1700 PRINT" fifiWA riA rtA rtA rtA rtA rtA riA riA rtft riA Jii*" 

171@ PRINT* JKA riA riA riA riA riA riA riA riA riA rtAU" 

1720 PRINT" SHA riA rtA rtA rtA HA riA riA riA riA riAMT 

1730 PRINT"ISrtA riA riA rtA riA rtA riA rtA riA riA rfAAT 

1740.PRINT"IHA rfA riA rtA riA riA riA rtA riA riA ftAlT 

1750 PRI NT"1MA riA riA rtA riA rfA riA riA riA riA rtA' 1 

1751 REM ****** VPRIABLER SRETTES ***** 

1752 NR=11 : SH<0J=43152■SH(1>-43193■SH<2> =49234:SH<3>=49275:FI=4036*4:RT=66 

1753 FOKE2024,32 - POKEFJ +5. 1 3 - POKE FI+3,39:P0KE21257,232:POKEV+1.254 

1754 LE=PEEK<F1+14) N^PEEK(FI+15> 

1755 IFN>7THENN=7 

1756 1FN>0THENFUR1 = 1TON = SYS21248:NEXT 

1757 FORI“1TO10 PRINT:NEXT:PRINTTftS<I5)“*_EVEL : " i LE- FORIMTQ3000■NEXT 

1768 PRINT "71 % "fll 11 ; 

1760 POKE 21257.193- NV=21248 : 3R=38 : POKE53279.0 ■ POKEF 1,0 PQKEV+1,255 
1770 REM 

1780- REM ****** EGENTLIGE PROGRAM ***** 

1780 REM 

1792 IFPEEK<53279>fiNE2THENGOSUB2370 

1795 POKEFI+2,RND<0>#1@:POKEFI+4,RNE<0;*5+15 

1800 SN^SN+1:IFSN=4THENSN=0 

1810 SVSSH<SN> 3K=SK+1 

1326 IFPEEKtFI>-1THENOOSUB2010 

1830 SYS 20992-SYS 24576;SYS HV 

1837 1FPEEK <53279 > ANB2THENGOSUE2370 

1848 iFPEEK(FI>=iTHENG03U£2010 

1850 IFSK = 1THENSVS336 

1860 IFSK=2THEN3VS832:SK=0 

1861 POKEFI+2,RNDC0}*10:POKEFI+4,RND(0 > *5+15 

1862 SYS 20992 : SYS 24576 

1865 IFPEEKC53279 > RNE2THENOOSOB2370 

1870 SYS 22779: REM U.SIMRNE 

1030 IFPEEKCF1+1)~0THEN1730:REN ******* 

1890 REM 
i960 REM 
1905 REM 

1310 SK=0,HH=0■P0KE21257,£32 
1920 IFPEEKCFI>-lTHENGQSUB2010 
1930 SYS 21248: N=N+1 : REM H£I > 


1990 PRINT "a"; TPB< 1 &>i "SiflDU BLEY INYRDERET" : F0RI=>1 TO10 ■ GETR* : NEXT ■ 00102500 
2000 REM 

2010 REM ***** SKYE -R SPACE.1 * ***** 

2020 REM 

2030 KX-PEEKCV >+( PEEK CV+16 >FOB1> *256 : BY=FEEK C V+1> 

2040 X1=INT< < BX-17>/8>:Yl=INTttBY-45V8>:TT=0 
2060 IFYKNTHENY1=N 

2070 &F tVl>NR+N; THENPOKEY+1.255 ■ PCKE53273,0 : POKEF I. O - RETURN 
2890 t*W+Xl+Yl*40’22»2 

2091 REM 

2092 REM 

2100 01=PEEK <Z> Q2=FEEK (Z2> 

2105 IFQJ=0 THENPOKEV +1.255:POKEF1.0:RETURN 
2110 IFO2=0TH£NPOKEV+1.255:POKEPl.0:RETURN 
2115 IFQ1032RND01096THEN2125 
2117 I F02O32flNDQ2O3£THENZ-Z2 ■ GO TG2135 

2120 Z“Z-1-Z2=Z2+J-TT=TT+J 

2121 IFTT=3THENY1=Y1+1 GOTO2O30 

2122 GOTO 2100 

2125 I FRR=38fiNDQ2032fiNDQ2096THEN2=Z2 = G0TC2165 
2185 AT-flT-1 

2190 F0KE2,32:P0KE2+1.82:POKEZ”1,32 

2210 IFNT-0THENPOKEF1+14,PEEK <F1 +14 HI■POKEFI+15,PEEKCFI+15>+1■GOTO1690 
2220 POKE Y+1,255:PQKES3279,0:POKEF1.0:RETURN 
2230 REM 
2360 REM 

2370 REM ******** RUMSK1BE TILBRGE **** 

2380 REM 

2390 PN=HN-1:J=0:ROKE54276.33 

2400 FORI=1T024=SYS20992■NEXT 

2410 IF N73THEN J=0 

2420 IF NC=3THENJ=15 

2430 PRINT"a" i 

2440 FORI=0TOJ:PRINT-NEXT 

2450 PRINT N ii hNThL RUMSKIBE TILBRGE ■ ,J .0M 
2460 F0PI=lTu4OOONEXT 
2470 FOR I=0TC33:POKEI+N+ C J+1 > *40,32:NEXT 
2475 1FhN=0THEN2500 

2480 POKE V+ 1,255■POKEF10 PQKE53273,0:P0KE54276,17:RETURN 
258 0 PRINT " MSaOPME OYER FOR I “ 1 TO 10 GE T8* NEXT: PQKE54296, & 

2510 PRINT"! DU NrtNEDE TIL LEVEL",LE 
2520 lNFUT"l£r SPIL TIL ^J/N> " >Ht> 

2530 1 Fft$0 " J " flNDlft*O " N " THENPRI NT " TV .80402520 
2540 1F3$="J M 1HtNRON 
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jai *m 


45 PRINT RT a,Q 


Subflighi or et spil til ZX81 
(16K). Du erombord i et rum- 
skit , som tlyver gennem en 
tunnel. Det emu din opgave 
at flyve over flest m ulige + og 
0 , men undgd - og uden at 
ramme ind i det sorte. 

Du kan selv konstruere din 
egen bane i linierne 20-36. 
Programme! SAVE s ved GO¬ 
TO 700 , og er i ovrigt 
selvslartende.O 

J 0 igen Bundgaard 


Subflight HJ 


a PEM " SU3FL IGHT f 
9 LET HF 
10 GOSUB 500 

14 LET P=0 

15 LET R =1i 
IT LET 5T=0 
IS LET PL-0 
19 LET H=0 
30 LET 


30 LET = + 

* - + + 

GO LET - 4- + + * 

+ + * 

35 LET C*3 ,f 


140 IF P=12S THEN 
150 IF P =23 THEM 
160 XF P=ai THEN 
170 XF P=22 THEN 
300 GOTO 50 
300 LET P =PL + f ST ■& 
010 PRINT RT 17/4 
; P 

330 XF P >HP THEN 
330 PRINT RT 19,4 
T: 41 ; HP 

340 PRINT RT 21,6 
N 3 " 

350 XF INKEYa= J, J" 
360 IF INKEY * = "M" 
370 GOTO 350 
500 CL3 

PRINT RT 0,0- 


^-T.» W t - T l - 1- - TT . - 


GOTO 300 
LET ST*3T+X 
LET PL=PL+1 
LET M=H + 1 

10i- 

;"DINE POINT;" 

LET HP =P 
;"H0JE5TE POIN 

; "NYT SPIL <^Jy 

THEN GOTO 10 
THEN STOP 


*3 id 
60 
65 
70 
30 
33 

95 

96 
100 

CNR* 

101 

V I 

110 
¥ = ’■7 
120 
130 
PEEK 


2 PRINT RT 13 ,0 


PRINT f flr 4-, 

PRINT RT 9, 
PRINT RT 12 
PRINT RT 10 
PRINT RT 11 
LET fi$ = R$ (2 
LET B$=B$12 
LET C$ =C$ (2 
LET D$=D$(2 
IF P >0 THE 
(P+1233 
IF P=0 THEN 


9,k5;fl( ( TO 32 3 
12, 0; 3 $ ( TO 323 
10,0,3$i TO 323 
U/O^D^t TO 323 
(2 TO ) +R* (13 
(2 TO .1 TB?«13 
(2 TO 3 +C$ (13 
(2 TO 3 3-0$ C 13 


THEN PRINT 


PRINT 


* R,10; 
R,1S;" 


LET R = R + (INKEV*$ - J 6 " 3 - t IMKEV 

* 3 

PRINT RT R , 10; ** :> “ ; 

LET P=P£EK (PEEK 16398+25S* 
163223 


560 PRINT RT 2,2;"DU KRN ST/RE 

FRRT0JET CP OG NED MED 6 DO 

7 . " 

570 PRINT RT 5,2;"DU MRR IKKE R 

RMME DET SURTE” 

560 PRINT RT 7,2;“DU SKRL K0RE 

O'JEN PRR + OG * MM MEN UMDGRR - . 

S20 PRINT RT 10,2;"+ GIUER I PO 

INT . " 

S00 PRINT RT 12.2;"* GXUER 10 P 

QINT" 

610 PRINT RT 14,2;"- GIUER - 5 

POINT" 

615 PRINT RT 16,2;"TRST L FOR fl 
T SEGYNOE" 

620 PRINT RT 12,3;"GOD FORN0JEL 
3E " 

630 IF INK£V$:>"L" THEN GOTO S3 

0 

635 CL 3 

64-0 RETURN 

70© SR'JE "SUBFLIGHS" 

710 RUN 
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Juveler 




e* - GRAPH, -e- 


“ GRAPH, 


- GRAPH, -li- 


- GRAPH. -I- 


\ BORDER 0: PAPER 0: \ NK 7: BRIGHT 1 = 

CLS 

e LET h =2000 

10 FOR f«0 TO 50: BEEP .005, f +C10XRNDJ 
: NEXT ( 

20 FOR j-2 TO 7: P RINT AT 1.0,3;: RESTO 
RE 20: FOR f-0 TO 26: READ r: PRINT INK 
j ;CHR* r;: BEEP .01,f: NEXT F 
30 DATA 127j128*75,65,82* 83,84,63* 78* 1 
28,75,78,79,66,76,65,85,67* 72*128* 45, 128 
,43* 57* 56,52* 46 
40 NEXT j 

50 INPUT ' SUAERHEDSGRADC0-20]' 1 *o 
55 IF o>20 OR o<0 THEN GO TO 50 
60 CLS 
70 LET < $c=0 

80 LET 1=3 \ / / 

100 LET b=l5 

101 LET 4 = 18 f it ^JV 

102 LET t“500 t ft* \ \\ 

103 LET d=0 |xj W l i 1 

104 LET a-0 

500 ren 

501 REN -4- = GRAPH, -4- 

502 REH 

503 REM -e- - GRAPH, -e- 

504 REH ^ . 

505 REH -r- - GRAPH, -r- 

506 REH ill 

507 REH -t- - GRAPH, -t- /jjV jjm 

503 REH -u- - GRAPH, -u- VJpL 

510 REH W\. I fW 

511 REH M- » GRAPH, -I- 

512 REH , V 

513 REH -o- " GRAPH, -o- 
520 REH 

600 JF CK10 THEN RESTORE 600: FOR n=0 
TO 7= READ r: POKE USR M o ,H tn,r: NEXT n 
700 DATA 0,0,0,124,254*124,56,16 
1000 RESTORE 1000: FOR J"1 TO 16= READ r 
: READ s; READ u:: FOR F=r TO *: PRINT 
INK 4JAT ujITq"! 8EEP ,005, f: NEXT I: N 
EXT J 

1010 DATA 5,15,5,20,30,5,0,5,7,10,20,7,0 
,15,9,20,30*9, 0,5, U * 10 

1020 DATA 20 * 11 * 25 * 30, 11,0*5*13 * 15,30 * 13 

* 3*20, 15,25*30, 15,0,10 

1030 DATA 17* 15* 25*17*0*30,19 

1200 FOR [ = 1 TO 29= PRINT AT 0, f J INK 6 ; 

'V : BEEP ,005, f : NEXT I 

1210 PRINT AT 1*0J INK 6L‘uSCORE:0 L 

ITJ = ] i F TID: t" 

1300 FOR f=l TO 29; PRINT AT 2, f i INK 6; 

’r 11 : BEEP *0B5,f: NEXT f 

1310 FOR f = l TO 29: PRINT AT 20* M INK 6 

; ,h e“ = SEEP .005* \ - NEXT f 

1360 PRINT INK 6 JAT 2l*0l■ F u■ , : FOR f = l T 

0 29: PRINT AT 21* FT INK 6; 1 11 : BEEP ,00 

5, f i NEXT f: PRINT * INK 6,AT 2l,30j"t“ 

1380 PRINT AT 21*1; INUERSE II INK 6;’OH 

GANG: HI : o 

1399 INK 7 

1400 FOR f=0 TO 6: READ r: READ s: READ 
u : *PRI NT INK CRND+5) j AT r * tRND*s J +u j "o" 

: LET a=a+l: BEEP >01*f A 2: NEXT f 

1410 DATA 4,S*6,6,8*11,8*13*1 * 10*8*11*12 
i3,1,14,8,11*16,8*I 

1500 IF o>J THEN PRINT INK CRND+535AT 

IB, [RNDX12J+1 ; "o ,c J LET 4=4+1 

1510 IF o>2 THEN PRINT INK CRND+5D *AT 

18, (RNO* 12 J +17 i" o: LET 4=4+1 

1520 JF o>3 THEN PRINT INK CRN0+5J;AT 




Forbiyderen "No Good" bar i 
lobet at sit lange liv rovet op 
til fie re juveler, som ban bar 
gemt i flere etagers grotte. 
Delektiven (dig) bar fundet 
grotten, og ved hjoelp at en 
en-mands-jet forsoger du at fb 
tat i juvelerne lor tiden l 0 ber 
ud.n 

Karsten Knoblauch 


16,(RND*8)+16;"o": LET 4=4+1 
1530 IF o>4 THEN PRINT INK CRND+5J J.AT 
12, CRNDXnj+iei 'o' 1 : LET a=a+1 
1540 IF o>5 THEN PRINT INK (RND+53;AT 
8*CRND*8) + 21i"o" : LET 4=4+1 
1550 IF t?>6 THEN PRINT INK tRND+53 jAT 
4,CRN0*BJ+21; M ti": LET 4=4+1 
1560 IF o>7 THEN PRINT INK (RND+53;AT 
6, C RNDX3J + 11"o": LET a=a+ l 
1570 IF o>8 THEN PRINT INK CRND*3];AT 
10,CRND*3)+1;"o": LET 4=4+1 
1580 IF o>3 THEN PRINT INK (RND#3l;AT 
10,CRNDX31+26;"o": LET 4=4+1 
1580 IF o>]0 THEN PRINT INK (RND*3JjAT 
1 4* CRND*3;>+26; "o“ : LET 4=4+1 
1600 IF o>!l THEN LET t=t-(o*I0) 

1610 IF t<300 THEN LET t=30® 

1620 IF o>8 THEN RESTORE 1600: FOR n=0 
TO 7 : READ + : POKE USR M o , '+n,r: NEXT r> 
1650 DATA 0*146,84,56,254,56,84,146 
1900 PRINT INUERSE JJ INK 6;AT 2l,l5;h 
1930 PRINT INUERSE 1; INK 6;AT 

2000 PRINT INK 6; INUERSE 1 ;AT J'* 26 ;l *" 

2010 LET t =t-1, 

2500 PRINT INUERSE 1] INK 6;AT 21*8;o 

2510 PRINT INUERSE ii INK 6;AT 3*7jsc 

2520 PRINT INUERSE 1J INK 6;AT 21,26;*- 
o ; ,c 

2898 PRINT AT q,b ; ' “ 

3000 LET b =b + M NK£T$ ="3 M 3-C JNKEY$="1") 

3010 IF b <0 THEN LET b = 30 

3011 IF b>30 THEN LET b=0 

3100 IF SCREEN* Cq+l*bJ=” " AND INKET*<> 
"0" THEN LET q=q+l 

3200 JF SCREEN* UjbKV 1 lH THEN BEEP .0 
I * q +b +10: LET d=d+l: LET $c=sc+25 
3300 IF t=0 THEN : LET 1=1-1:: FOR 1=69 
TO -60 STEP -1: BEEP *01,f: NEXT f; IF ( 
>0 THEN : CLS : GO TO 100 
3310: JF i=0 THEN CLS : GO TD 7000 
3400 IF d-4 THEN LET o=o + l : LET sc=sc+1 
00 J CLS : GO TO 100 

3990 IF SCREEN* Cq-l,bJ = " “ AND 1NKET*= ,F 

0 H THEN LET q=q-1 

4000 PRINT AT q , b * " i 11 

6000 GO TO 2000 

7000 LET 4*="SLUT OPG0R 1 ' 

7010 LET b*= M 

7050 IF s c>h THEN LET h=sc 

7300 FOR 1 = 10 TO 20: PRINT INK U-10V2 

; AT 10* 10 ;**; OUER 1 ;AT J0,]0;b*; BEEP . 

005, f: NEXT f 

7150 PRINT AT 15,0 

7200 PRINT "SCORE =",sc 

7210 PRINT 11 TID =",t 

722G PRINT "OnGANG=",f? 

7230 PRINT " o = M ,4-d 

7300 PRINT mr UlL DU PRDUE J GEN ? [J 
/'N^H 3 +1 

7400 IF JNKEV*= ,J n" THEN GO TO 7450 

7461 IF 1NKET*="j " THEN GO TO 7500 

7402 IF 1NKET*= "m ,r THEN GO TO 7600 

7430 BEEP .01,RNDX60 
7420 GO TO 7400 

7450 CLS : PRINT INUERSE 1 ,AT 11*0* 1 0 
U U1LLE GERKE SLUTTE SPJLLET, BEEP .5 
,10: STOP 

7500 CLS : PRINT INUERSE 1 ;AT 11,0j" 

OU UILLE GERNE SPILLE IGEN. ": BEEP .5 
*30: CLS : GO TO 10 

7600 CLS : PRINT INUERSE 1JAT ll,0i" 


SPEC¬ 

TRUM 


OU UILLE nAASKE SPILLE IGEN rl 
7610 PRINT INUERSE HAT 12 , 0 ;” SAA JEG 
TRAP UALGET FOR DIG. , . 

7620 IF £RND*10K5 THEN LET <J*= ,, IKKE " : 
GO TO 7622 

7621 LET 

7660 PRINT INUERSE 1;AT 15*0*“ DU UILL 

E “ r Jd*;"SPILLE IGEN_" 

7700 IF d*= u 1kKE " THEN BEEP ,5*10: STO 
P 

7710 IF d *=" 11 THEN BEEP 2*5,30: CLS : G 

0 TO 10 

8000 STOP 

8388 RESTORE 9000 

8900 BORDER 0: PAPER 0: INK 7= BRIGHT i: 
CLS 

9000 FOR n =0 TO 7: READ +: BEEP * 01 ,n: P 
OKE USR "q'+njr: NEXT n 
3010 DATA 0,126,254,255,255,239,247*102 
3020 FOR r=0 TO 7= READ r : BEEP ,01*n: P 
OKE USR “e ”+n*r : NEXT n * 

9030 DATA 0,0,0,0,16,116*254,255 

3040 FOR rr=0 TO 7= READ r= BEEP .01 *n: P 

OKE tlSR ,f r’ s +^,r : NEXT n 

9050 DATA 255*254,116*16,0,0,0*0 

9060 FOR n =0 TO 7: READ r: BEEP .01*^: P 

OKE USR " t"+n * t : NEXT r> 

3070 DATA 192,2^4,224,240,192,224,192, 12 
B 

9080 FOR n =0 TO 7: READ r: BEEP . 01 ,n= P 

OKE USR "u"+f>*T : NEXT o 

9090 DATA 3*7,7*15,3,7,3*1 

9100 FOR n=0 TO 7- READ t: BEEP , 0 I,n: P 

OKE USR l M pr +n*r: NEXT ft 

9110 DATA 24,60,24,60,90,24,L36, J02 

3120 FOR r>=0 TO 7= READ r: BEEP , 01, ni P 

OKE USR "o"+n *+ : NEXT n 

9130 DATA 0,0,0,124,254,124,56,16 

9300 FOR f =0 TO 77: PRINT INK £RN0*61 + J 

;"JUUELER BEEP .01,RND*60: NEXT f 

9400 CLS : PRINT FLASH I,AT 0,10S"INSTR 

UKTIONER 1 ' 

9410 PRINT AT 2,0; FORBRVDEREN -NOGOOD- 
HAR I L0BETAF SIT LANGE LIU R0UET OP TIL 
FLERE JUUELER SON HAN HAR GEnT I EN 
FLER-ETAGES GROTTE." 

3420 PR INT AT 7* 0 ; "DETEKT JUEN Cd J 9 3 HAR 
FUNDET GROTTEN ,0G UEO HJAELP AF EN 
EM-HANDS-JET FORS0GER HAN AT FAAFAT I 

JUUELERNE F0R TIDEN L0BER UD. __ M 

3430 PRINT INUERSE 1 *AT 12,0;" NAAR 

flAN K OH PIER TIL CA. OflGANG NR.9 

, KAN DER FOREKOJIME -SORTE- 

IUUELER 

fDE KAN 1KKE ) 

9450 FRINT " DU STTRER HED:" 

9460 PRINT i PRINT INUERSE 1 * 1 1=UENSTR 
E 3=H0JRE 0-OP " 

9490 LET a=RNO*30 

9500 PRINT INK C*/5J+l; INUERSE 1;AT 21 

,0TAST -P- FOR AT SPILLE JUUELER ,fc 

9551 LET a=a+|0 

9560 BEEP .01,4: BEEP .005,4 

9600 IF INKET*<> J ’p" THEN GO TO 9430 

9700 RUN 

9333 SAUE "JUUELER" LINE 8888 


'l^&J 








Q-Bert 


10 PR I NT "72":P0KE532S1.0:POKE 
20 PRINT : PRINT" 31 ST WH 

30 PRINT" tr til W W\ " 

40 print" srrn ww\ " 
50 print" am aa/ ma v 
60 print" srm aa/ ma a 

70 FORI=0TOI : PRINT" 1733 fia I 

80 print" sia sa i ma 
30 pr i nt" n rrta aa i ma 
100 pr i nt "n ma aa i ms 

110 print"73 na Ba t ms 

120 print "73 ma sat ms 


3280 >2 


Vor ven Q-BERT skal styles 
Tundtpd de 49 trin, som Che¬ 
ops pyramide bestdr at. Hvei 
gang han hai vceret pd en 
firkant, bliver feltel farvet. For 
at undgd Mumiens loiban- 
delse, skal du Id farvet alle 
felter. Et supeispil tit Commo¬ 
dore 64!!! 

Jespei Hansen 


PRINT "71 ms 


140 pr i nt "73 ma Ba i ma sa i - 

150 print” ma sa i w sn ma sa i ■■ > 

160 print" ma ww\ ma * m sa/" r 

170 print" ma ww\ ma sa/" v 

180 print" ma =r m ww tko bv jesper hrnsen 1934” 

190 PRINT" ma ww\ " ; 

200 print" ma Ba/ ma sr wn " 

210 print 1 '!"] ma Ba/" 

220 GO5UB1130 

930 SI-54272:FORI“5T019STEP7 : POKESI+I,15 : FOKESI+I+1,255 : NEXTI:POKESI+2- 
240 POKE53280J 2 : PR I NT "71" : F0RI-1T08 : PRINT : NEXT 
250 PRINT" aSNIL DU SPILLE NED" : PRINT 

260 PRINT"SnjaOVSTICKCPORT 1 > ELLER maRSTATUR” ; PRINT 

270 BT=" " — 

230 IFPEEKt203)-22THENP0KE198.0;GOTD320 (<. 

230 IFPEEKC203>“34ORPEEKC203>-60THENB$-" J" : OQTO380 

300 D=D+1 ; IFD>500THEND=0 : GOTO10 J ? 

310 GOTO280 fl 

320 PR I NT "73" ^ 

330 PRINT 1 PRINT" WVILKEN TASTER SKAL VflERE : " : PRINT 

340 INPUT" -VENSTRE" i L0$ : PR I NT ] ^rfaBU 

350 I NPUT" ~0P"j R0$ ; PR I NT L 

360 I NPUT "-NED" j LU$ : PRINT 

370 INPUT"~H0JRE" JRUT ^sT 

380 PR I NT "73" : L-0 : FA=3 ; P-0 : RU-48 

390 B=1160 : F=55432 : F0Rfl=0T06 : GOTO1030 i jjg 

400 FORA1-0TO6 : H=A*79+fl1*42 n 

410 FORI-0TO2:POKEF+H+I.1 ; NEXTI : POKEB+H.233 : POKEB+H+l.224 : POKED+H+2.10 
420 FORI-0TO1 : P0KEE+H+I+4B.224 ; POKEF+H+I+40.2 : NEXTI : NEXTA1 : NEXTA 
430 FOR I =4T018STEP7 : POKES I +1 .• 0 ; NEXT I ; RESTORE 
44P! PRINT" SCORE: ".P. "HI SCORE RE 

450 B=1163 : F=55435 : FORA=0TO6 : P0KEF+fl*42, 1 = P0KEB+fl*42, 101 : NEXTA 

460 3=1454:F-55726 ; FORA=0TO6:POKEF+R*79.1:P0KEB+A*79.78:NEXTA 

470 E=1494:F=55766:FORA=0TO5:P0KEF+R*79.1 : P0KEE+fl*79.101 : NEXTA 

480 R=INTCRND<TI>*7>:A1 = 1NT<RND< TI>*7 >:5=1161+fl*79+R1*42:G-fl : Q1=A1 

490 POKES.'222 :POKES-40. 170: IFR=0THENPOKES~40.. 101 

500 SF=S-1024+55296 

510 FORI=SF“1T05F+1 : POKEI.FA : NEXTI 
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ma 
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■a I ":NEXTI 
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15 : FOKESI+I+1 


:NEXTI:POKESI+24. 15 


maRSTATUR” : PRINT 


: OOTO380 


%> f 


VflERE : " : PRINT 


'40. 101 



520 POKE53280.FR 


530 L=L+1:IFL>10THENL=10 
540 F0RI=1T0L 

550 LOCI > * I NT < RND<T I>*7? : LKI) S IHT( RND< TI 3 *7 > : 
560 IFPEEKCL<n>O224THEN550 

570 POKELU ).289 : P0( I>=L0CI> : PI C I )=L1( I > : NEXT I 

580 IFBf="J"THEN1050 

590 GETA$:IFA$=""THEN640 

600 IFA$=L 0$TH E NFl 1 = A1 -1 : GO TO800 

610 I FA$=RU$THENA 1 =P! 1 +1 : GOT0800 


: LC I >« 1161 +L.0( I >*79+L 1(1)*42 
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620 lFfl$=RO»THENR-fl-l:GOTO800 _ _ _ 

630 IFfl$-LU$THENFf=R+l : GQTG800 / —' — . ™ 

648 1 = 1 + 1 ; IFIX..THENI-1 I COMMO I 

650 IFP0<I>=0THENZ*3:GOTO700 I DOPE I IsSSSaM 

660 IFPOC I >= S 6THEHZ=£ : GOTO700 I aa I 

670 IFPlCl?=@THENZ=1 : GQTO700 |_ _| f- 

630 IFP1 < I >=6THEHZ“8 : GOTO790 ^ 

630 Z*INTCRNDCTI?#4) 

700 IFZ-3THENL0CI >=L0C I > +1 : GOTO740 
73.0 IFZ-2THENL0C I )=L0C I >-l : GOTO740 
720 IFZ=lTHENLKI?=Lia:J + l : GOTO740 
730 LI C I )=L1( I >-l 

74 Pi priKES I .• 207 : POKES I +1,34 : POKES 1*6,80 : POKES 1+5,8 : POKES I+4, 17 
750 LCIJ*L0<I>#79+L1CI?#42+1161 : IFPEEKCLC X > )=203THEH650 

760 pa)=p0a>*73+pia^42+nsrPGKEPa::',224:p0a>-L0a> = phi> 

778 POKESI+4,0 

730 IFPEEK(L(I)3“222THENP0KELCl),203 : POKELCI>-48,224:GOTO320 
730 POKELCI>,203 : GOTO580 

800 POKESI+7, 103 : POKESI+8,17 : POKESI + 13,248 : POKESI + 12,0 : POKESI + 
81R S=Q#7^+G 1 *42+1161: POKES, 224 : POKES-40, 224 : I FQ=0THENPOKES~40 
820 Q=R:Q1=R1:S=R*73+R1*42+1 161 : IFPEEKCS)O224THENP0KESI + l 1,0 : 
838 POKES, 222■ POKES-48,170:1FR=0THENPOKES-40,101 
840 POKESI +11,0:SF=S~1824+55236:IFCPEEKCSF >RND15> = 1THENS60 
850 GOTO640 

860 FORW a SF-1TOSF+1 : POKEW, FR : HEXTW : P=F'+1 : I FP>RETHEHRE=P 
870 PRINT“ HH",P,,RE:IFP=RUTHEN830 
880 GOTO640 

830 FR=FR+1=IFFR>15THENFR-3 

300 POKE53230,FR : RU“RU+48+10*L:R$“"":P=P+10*L : 1FP>RETHEHRE=P 


m3 ■POKEL CI>-40,224:GOTO320 


=Lia> 


11,33 
, 101 
GOT0930 


: P=P+10*L:1FP>RETHEHRE=P 


310 PRINT"73" : GOTO330 
326 IFR=0THENPOKES-40,101 
330 FORI*0TO8:PRINT:NEXTI 
340 FORI=180TO130STEP-1 

350 POKESI+24,15 : POKESI,207:POKESI+1,I:POKES1+6,143 

360 POKES1+5,15::POKES1+4,17:NEXTI:POKES1+4,0 

370 POKESI,90:POKES1+1,4:POKES1+6,253=POKESI+5,15 

980 POKES1,50:POKES1+1,17=POKESI+6,32 : POKESI+5,0 : POKESI+4,17 

998 FORT-1TO130:NEXTT : POKESI+4,0 

1008 PR I NT “«.«««. GAME ~ 0 V E R »»>»»" 

1010 PRINT:PRINT"m TPVK FI FOR ET NVT SPIL !" 

1020 POKE133,0 = WRIT198,1 : GOTO240 
1030 RERDK : RERDKL : REHBKH 

1 1840 POKESI+K,KL : POKESI+K+1,KH : POKESI+K+4,17:GOTO400 
1850 R- C 255~ PEE K < 56321) ) R ND15 
I860 IFR-0THEN640 
1070 IFR=4THENfl1=H1-1=GOTO308 
1080 IFR=8THENR1=R1+1=GOTO800 
1090 IFR=1THENR“R-1 : GOTO800 
1100 IFR=2THENR=R+1:GOTOS00 
1110 GOTO640 

11 20 DRTR8,180,8,7,247,10,7,10,13,7,103,17,14,237,21,14,20,26, 
1130 P0KE56,48:FORI-1TO21:RERDR:NEXT 
1 1 40 priR I “823TO370 : RE FI DO : POKE I, Q : NEXT 

11 =10 BRTH120, 169, 43, 133,1,169,0,133,33,133, 100, 169,208,133,93, 
1160 DHTfl162,16,160,8,177,38,145,100,280,203,249,230,99, 230,10 
1178 DfiTfl169,55,133,1,38,36 

1180 SVS828 = P0KE53272,CPEEKC53272>RND240)OR12 
1130 RERDR=IFRC0THENRESTORE:RETURN 

1200 FORJ=0TO7 : RERDB:F0KE12288+R*8+J,E:NEXT:G0T01190 
1210 DRTR160,255,255,255,255,255,255,255,255 
1220 DRTR178,255,255,231,195,195,123,G,0 
1230 DRTR222,129,135,219,139,219,24,255,255 
1240 DRTR203,195,129,36,0,0,60,153,195,-1 


14,287, 


1 S3,48, 
1 , 202,2 


133,101 
'08.242 
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Super-Bam 


COMMO¬ 

DORE 

64 



Med dette program bar du nu 
chancen lor endelig at Id oi- 
den p& dine diskettes Du kan 
candre dit bamhoved, dit id. 
nr., samt aendre tormatet p6 
diskettes 

Endvidere kan du cendie din 
dos (disk operating system), 
s6 du writeprotecter din disk 
uden at p&klcebe maerkat. 
Progiammet er i 0 vrigt selvin- 
struerende og fortceller alt, 
hvad du vil vide i rem linjer. 

Jan Toft 


HCT 


20 REM PROGRAM TIL AT RM 3 RE DISKETTE NAVN SAMT ID NR r SAMT DOS MftRKE * 

30 REM ODEN AT FORMATERE 0 ISKETTEN DM 

40 REM PA SKtiftrCN VISES TRE RSKKER MED KLAMMER 

50 REM AVER RRKKE BESTAR AF 4 

SO REM OVER F*RSTE KLAK^t STAR DER DOS 

70 REM HER KAN 00 ANDRE DOS MARKET PA DISKETTEN 

SO REM OET RlGTlGE MRRKE ER 'A' ALLE ftKORE MARKER MEDFflRER > 

90 REM AT DO 1 *KE KAN SKR|VE PA DISKETTEN 

100 REM I KLAHTE m*E SKRIVER DO 0 ISKETTENS NAVN 

110 REM I KLAMFE KR. 3 SKR IVER DO ID W, BEMARK AT DETTE KUN ER OVER F LA 0 ISK 

120 REM DA DET RlOTlOE IO INK STAG 1 OVAK VIL STA 1 HEAGEREN PA HVER BLOK 

130 REM DEN SIOSTE KLANTE HAR 1 N 0 EN PRAKTJSK BETyONING 

140 REM DU KAN SKRIVE LIDE HVAD DU LYSTER F.EKS DTNE IN 1 TIALER 

150 REM VED TRYK PA < F 1 > VISES OAMMEL BAMHOVED J E'EN FBRSTE RAKKE KLAMMER 

ISO REM < F I ? KAN AKTI VERES PA ET VILKET SOM HELST TIOSPOKKT 

170 REM DEN NASTE RrtKKE KLAMMER STAR DEN KUNST 13 E CUPSER DO HER SKR IVER, 

180 REM MAN OET NYE BAWOVED 

ISO REM I DEN TRE DIE RAKKE KLAMCR VISES DET NYE BAWOVED 
200 REM V AR IABLER BRUGT I PROGRAM 
210 REM L* - ANTAL CURSER NED 

220 REM X* SAMT Y* - BESTEMMER HVlLKE TASTER OER MA TRYKKES PA 

230 REM C - TOMNE FELTER 1 INPUT STRENG 

240 REM G » HVOR CURSEREN SKAL I INPOT 

230 REM LN - MAX KARAKTERER I INPUT 

2 G 0 REM M - TftLLER 

270 REM P - BLOCK POINTER 

2S0 REN ft - VAR|ABEL 1 FOR DB NEXT L0KKE 

BSD REM C - ANTAL KftRAKYERE I PlIO* 

BBS REM l “ ANTftL OURSER fCD 
300 REM A* - DEN ENOELIOE BAM 
310 REM &*" VAR I ABEL 1 INPUT 

320 REM C£*+C 3 *+C 4 * - TOMPE FELTER BftNHOVEOET 
33 D REM Fl*-F 4 * - FEJL VAR I ABLER 
340 REM PS- AJRLPE VAR 1 ABEL 

350 REM £* " LAST BAFHDVEC 3 + 3 S * CUftSDft NED 

300 REM A*< 1 > ■ DOS MflRKE J 

370 REM A*(EJ - DISKETTE NAVN J 

330 REM AM 31 ■ ID ML / 

390 REM AM 4 ? ■ FORMAT J 

400 PRINT' JT iFOKEE , 3 tREM SLETTER /SKtfRM SAMT 3 AETTER ANTAL AF KLAWYER 

4 10 L*- ' HHCmCHHtCHfllSilCCIl" t REM VAR 1 ABEL TIL CURSER POSITION 

420 PDKE 53 EB 0 , 4 «P 0 KE 532 BI ,Q 1 REM 5 K<RM FARVER 

430 PRINT" Ml “1 

440 REM X SKRIVER SKflRM 

450 REM \ 

4 G 0 REM W 

470 PR I ITT'■!**** ******** ********#***+»******** ******** 

480 PRINT" *KJ NYT BAM MOVED (i*-f 
430 PRlNT"**t *****************************«**#**** N 1 
300 PRINT"*] S + S* CURS Oft ftO *) 

SlO PRINTSPCO? -HBttataat DOS DISKETTE NAVN ID FORMAT" 

320 F DRW -1 TOPE EK <2 > 

330 PR I NT" » h /- " ■ -^ t -^ n 

340 PRINT* III II II 1 jr 

330 PRINT" -—- > --J ^■"tNtlXT 

5€0 PR INTLEFTM L*, 1 S> i PRINT "0 TRYK FI FOR SYN AF OPRINCELIG BAM ■ 

370 PRINT"*! TILV 1 RKET AF JAN TOFT 0 * 1 - 10 - 1304 ’' 

3€0 PRINT"*] TIL OFFENTLIG BRUG * 

330 REM 

€00 REM SKIERM SLUT 

€10 REM 

SBD GDBUSSSO 


* r ' ' > 14 . 

II II I 

-j <.— 

TRYK FI FOR SYN AF OPRINCELIG BAM - 


S30 REM RUT 1NC TIL TJEK OG CRRYLONING AF TOMME PLAOSER I INPUT VAR I ABLER NE 
G40 OS*"* 

830 C3**" " 

BSD C4S-C3S 

S70 C-LEKK C2*5 -LENt A« 2 > ) * A*< 2>-A* 2 5 *RIGHT*< C2*,C> 

GBO C-LENtC3*>-LENt A*( 3> ) ift« 3l-A« 3 5+Rl0HT*t 03*,C J 
G30 C-LENC C4*5-LEN£ A*C 4 i 5 iA*( 4 5-ft» 45 *PlGHTS< C4»,C> 

700 AS'A*(£5-** '+ft«3>P ■♦«««) + * 

710 REM 
720 REM 

730 P- 144100SUBSUO* PR INTWE r A*M 0OS0BB30 ■ REM SKR IVER BAM 
740 REM. 

730 F-BIGOSUB8IOIPRINT42,A*< 1>JIG0SUBB30>REM SKRIVER DOS MSRKE 
?€0 L-17iP0KCS4S,€ * 30SUB70O■ODSUB1190 IRUN410 
7T0 feEM L«SEP BAM OB HOPPER TTL PRINT RUT1NE 

?€0 P-I 44 *OOSUBSOO t FORA"1T034 t BETRE,F*iE*“E*+F*i r«KT(P0KE2iB0T0S50 
730 REM 
SOD REM 

BID REM SKRIVER TIL DISKETTE G PER AT IV SYSTEhET t D0G> , AT DEN SKAL 
BSO IGNORERE DOS MARKET 

€30 PR I NTH 1 , "M-WCHRft 1 >CHR*( 1 >CHR« 1 >CHR*< 83 5 

940 PRINT* I , "Ufi * m fStQf IBIOt RETURN i REM SKRIVER P* SPOR 18 SECTOR 0 
€50 REM PRINTER BAM FAfl SKRRFEN^— S * (Jft, T. H , 

SBO PR1NTLEFT*; L*,L > +" WHHU33’ +MID*< E* ,1,16)1 
870 PR INT*VE»» H *MIO*< E*, IS,25 J 

380 PR 1 NT *MID*< E* r 22,2 5 iGGSUB 1 ISO t E*= " ‘ J GOTD340 

890 REM INIT1AL1 SERE OG *BNER EN KflNAL TIL 0ISKETTEN 
SOO GOSUB I ISOiOPEN I ,G,13,“I"*OPEN2,0,2, 

SlO PRINTH1,“U1t^IBlOiREM LASER SPOR IB SECTOR 0 
320 PRINT*I,"B-P*“J2JP 
S30 RETURN 

S40 P-2 i GOSUB3GO t GET*2,F*i PRINT "ma'+F*: RETURN 
330 P- t 44 iL-S i PCKEG4B ,3 * G0SUB7S0 * CLOSES i CLOSE 1 ipR INT'M®* : P0KE2 I 1 ,CLi&0TOl010 
SGO X*-CHR*( 32>tY*-CHR*t 1401 tC"ISl*LN-1*G0T0S90 
370 B*-"‘iLN-L41Q-2 

SBO M-M+l [PRINT LEFT*C L* ,C> t fi£M TELLER A*( Ml £N OP 
390 POKES 11,GiREM OURBER POSITION PA LtNIEN 
1000 REM KONSTIO CURSER 

1D1G PRINT ■ FORA " J TO 40 s OETA*? IFA*K >" "THEN 1040 

1CEO NEHTtPRIMT'Mft’ J (FORA■1TO40 * IFA*"-"THENFEXTI GOTO 10IO 
1030 REM TEST FOR fFI>? HVlS JA ■ SEWER C0R3ER POSITION OG LRISER BAM ]NQ 
1040 IFASC< A* > -133TH£NiCL-PEEK< g I 15 J 00T093O 
1050 REM TEST FOR RETURN 

10SO IFASC< A*>-13AHJ0t > 13THENFRIKT’'*-" *OOTOI 150 
1070 1FASCS P*>^ >B0THEN1IDO 
10S0 iFLENf B*>»0THENT«XT1Q0T01010 

1030 B*«LEFT*t e*,LEWt P*>-1 >tPR INT'B Ml "MOOTOIOIO 
1100 IFA*CK* OPA*>Y*THEKrEXTiBOTOI01O ^.tUMORTK. 

1110 IFLEKK B* > < LNTHE Mi**B*+fl* t PR 1 NT “ BB * A* " lfl“ t i GOTO IGIO 
USD NEXT iOOTO 10 I 0 

1130 REN POINTER TIL K0NST1Q CURSER 
I 140 REM 

1130 IF 0*3 THENQ-3 * LN- 1 S 3 A*< M> -B*i B*- * " iGOTOSBO" 

I 1G0 IF Q-STHENQ ■ 2S iLN-2 ' A*< M5 -B*iB*- " * *G0T03B0 
1170 IF Q = 23THEN0 = 33iLN-2:A*< M >-S*: B*- * * iGOTOSSO 
11SG A*<M5-B*i IFG-33THENRETURN 

II SO REM FEJL RUTINE 

1200 CLDSE2:CLOSE 1lOPENl ,fi, 13i INPUT*1,FI*,F2*,F3*,P4* 

1210 IFF2*< >'OK"THEN 1£30 
1SS0 CLOSES 1 CLOSE 1(RETURN 

1230 PRlNT-J"+LEFT*tL*,1S5+F1**" *+FB**" "*F3**" H *F4#I CLOSES E CLOSE 11 END 
READY. 
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QL Backup 


10 REMark 
) REMark 


MX backup MX 
af Michael Riber 


Programmet foretager auto- 
matisk backup, en proces 
som ellers krcever en del tid 
og koncentration af bruge- 
ren. Vaer under indiastnin- 
gen opmcerksom pa linie 
290 r hvor der skal std ' tryk pd 
ENTER/', A'et skrives ved at 
trykke CTRL SHUT desvaerre 
kan printeren ikke skrive leg- 
net som i QL er reprcesenteret 
ved ASCII vcerdien 82H Pro¬ 
gramme! er selviorklarende, 
s 6 ndr det er tastet ind skrives 
blot RUN.D 

Michael Riber 


PRINT "##* BACKUP MX Start %%%" 

PRINT VKoPierer a lie filer fra mdvl til mdv2." 

PRINT \"Placer de to kasaetter 09 tryk ENTER. M! PAUSE 
PRINT "Forberedelse til backup," 

1 

OPEN-NEW #15,mdv1_dir_tmP 
DIR #15,mdvl- 
CLOSE #15 

OPEN-IN #15,mdv1-dir-tmP 
INPUT #15,catri9de-name* 

INPUT #15,catri9dt-fttatuaS 

INPUT \"Vil du formatere kaaaetten i mdv2 ? ";svar* 
IF <*var*»"J"? OR <svar**"J"> THEN 
PRINT "Vent til mdvl stopper, tryk s ENTER," : PAUSE 
PRINT "Formaterin* > "j 
FORMAT "mdv2-"8. catri9de-name* 

END IF 
PRINT \ 

Antal-filer * 0 
REPeat koPier-fil 
IF EOF (#15) THEN EXIT koPier.fi1 
INPUT #15,file-name* 

IF file-name* <> "dir-tmP" THEN 
Antal-filer = flntal.filer + 1 
PRINT "KoPierer "jfile.name* 

COPY "mdvl_"& file-name* TO "mdv2."& file-name* 
END IF 

END REPeat koPier-fil 

PRINT V’Der blev koPieret Antal-filer.: " filer," 
CLOSE #15 

DELETE mdvl-dir-tmP 


H 


PRINT \"%%% BACKUP MX flfaluttet MX" 
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Stroboskop 



Et lestligt program til Commo¬ 
dore 64, der s0rger lor lcekre 
eflekier under tester og lig- 
nende. Fomden stroboskop- 
lyset er der 6 andre lyseflek- 
ter, som alle kan kore ud fra 
hovedmenuen, 

Kurt Bennetsen og 
Klaus Kortboek 


0 PRINT"?]" CLR 

1 F0KE53281■0 : FOKE53280, 0 : COSUB 80 

2 GETfl$: IF Rf“"" THEN 2 

3 IFRJ= M *"THEN21 

4 IFH$=" ■" THEN40 

5 I FR$“" II" THEN 50 

6 1FRf=" H" THEN 60 

7 1FR$='3T THEN 109 

8 IFHf="K"THEH229 

9 lFfl$="T" THEN PRINT"?]" : PRINT"!?!- ; 30TO 11 

10 GOTO 2 

11 PRINT CHRSC14?) 

12 PRINT"SSER DU 5IKKERCJ/N>?" 

13 GET Sm-IF SR*="" THEN 13 

14 IF Sflf-"J" THEN PRINT''END 

15 IF SRf-"N" THEN RUN 

16 GOTO© 

21 PRINTS !il,--V* 

22 PRINT" HI Si SOUND, li I" 

23 PRINT" iil v “-- 

24 PRINT"JSPflini" 


25 

PRINT "W 


zr 


a 

m 


a 

m 

a 

m 

a » 

a 





26 

PRINT"3 ■ 


a ■ 

a 


a 

■ 


a 

■ 

a 

■ a 

■ a 

■ 


a 

■' 


27 

PRINT"a ■ 


a ■ 

a 


a 

m 


a 

m 

a 

■ a ■ 

a ■ 

a 

m 


a 

■" 

28 

PRINTS 


a ■ 

a 

■ 

a 

u 


a 

m 

a 

■ an 

a ■ 

a 

m 


a 


29 

PRINT 1 ' 

a 5 

a ■ 

a 

■ 

a 

m 


a 

m 

a 

■an 

a ■ 

a 

■ 


a 

■" 

30 

PRINT" 

a ■ 

a ■ 

a 

3 

a 

m 


a 

m 

a 

■ a 

n a 

m 


a 

■' 


31 

PRINT "W 

w 


W 

^3 


w 

a ■ 


ana i 

W 

a 

■" 





32 GETBf’IF B$=“" THEN 32 

33 IF B$s" " THEN RUN 

34 RUN 

40 PRINT"?]": REN ** STROBE LVS W 

41 FOKE 53281,0'POKE 53280,0 

42 FOR H-l TO 75 : NEXT 

43 POKE 53281,1 

44 GETRlf : IF Rl*=" " THEN RIJN 

45 GOTO 41 

50 REN m FRRVESTROBE W ' 

51 PRINT"73" iPOKE 53281,0 : POKE 53280,0 

52 FOR Rl=9 TO 15 

53 POKE 53281,R1 

54 FORB=1TO50’NEXTB 

55 POKE 53280,R1 

56 F0RE=1TO50-NE^TE 

57 GET R2*:iF flZ 

58 NEXT HI 

59 GOTO 51 

60 REN m CGEHLLS W 

61 FRINT'rr POKE 53281■ 0 : FOKE 53280,0 : V=1514■Vl=1534 

62 RE“1NT(RND<1)#4 > + I 

S3 IF RB-1 THEN V=V+40 : Vl=VI-40 : F=2 

64 IF RB-2 THEN V=V-40 Vl=Vl+40“F“5 

65 IF RB=3 THEN V*V+1:VI=V1-1’F=6 

66 IF R£=4 THEN V=V“1■VI=V1+1:F=7 

67 IF VC1024 THEN V=V+40 

68 IF V>2023 THEN V=V-40 


THEN RUN 



Digitaluret benytter Commo¬ 
dore 64's indbyggede interfa- 
cechip 6525 Programmet 
sporget om tiden, om det er 
AM/PM og vlser herefter et 
stort display, der ogsd angt- 
ver 1/10 sek. 

Henrik Larsen 
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69 IF VIO024 THEN Vl=Vl+40 
7R IF VI>2023 THEN Vl=Vl-4U 

71 GET HB$ : IF RBf"" " THEN RUN 

72 POKE V,81 POKE VI-81=POKE V+54272,F:POKE V1+54272.F 

73 GOTO 62 

74 RUN 

SB REN ** INSTRUKTIQNS m 

81 PRINT"Slfl m 0 U N D - VflLGHULIGHEDER, “ 

82 PRINT" HI - “ 

83 PRINT 11 HOVERSIGT" 

84 PRINT'‘Mi 3F11 SOU N B" : PRINT 11 *1 SF2* L0BELVS" 

8^ PRINT"II SF3S STROEE-LVS" PRINT' S SF4? SOUND RUN 1 

36 PRINT"M SF^5 FflRVE-STRQBE" 

87 PRINT"M SF65 C0BHLL5” 

88 PR I NT 11 H STOP" 

89 PR 1 NT 11 MPOTILBRGE NED 'SPACE'" 


85 PRINT"KJ 5F3S STR0EE-LY5 : PPxN I m 3-4! 

36 PR INT"M SF55 FflRVE-STRQBE” 

87 PRINT”HI 3F65 C0BALL5” 

88 PR I NT 11 H STOP" 

89 PR I NT " BESTI LBRGE NED 'SPACE'" 

31 RETURN 

100 PRINT":!" POKE 53231,0=PUKE 53280,0 
181 OOSUE 133 

102 T=INT{RND C1? *7 ? +1 

103 I FT-1 THEN R-5 : E"153 1 C-23 : D=156 

104 I FT-2 THEN fl=28 = B=156 : C-30 ; D=31 

105 IFT=3 THEN R=30=B=31=C=153 : D“5 

106 IFT-4 THEN R<31 B=30 = C=28 = D“156 
187 IFT-5 THEN Ft* 156 : B~23 = C=3l : D=38 
108 IFT=7 THEN R=15P : E=30 C-156 D=3l 

110 PRINTCHR$(H> PRINT 'S! E 0 U N D" 

111 GET R6$ : IF H6f" M " THEN RUN 

112 GOTO 101 

133 PRINTCHR£0=D 

200 PR I NT ,fc MM " 

201 PRINT” MMM M 

202 PRINT” MMM 

203 PRINT” MMM 

204 PRINT” tflM ” 

205 PRINTCHR$CB> 

2^6 PR INT " HBWJjWWD^^ #••• 

20? PR I NT " " 

208 PRINT"^I^T^T^iMM" 

^09 PR I NT 11 *' 

210 PR I NT ” iTiTtTsTsTsTiTiTiTiTil MM ” 

211 PRINT CHR$(C> 

212 PRINT" TiT^iT=T=T=T:T;Tii1 iT=T=T;T il 

213 PR IN T'' • III •' 1 


5F2* L0EELYS” 
SF4S SOUND RUN 11 


PR I NT 111 'iTi!^T^^=T^TET^^^Tim*tt t* ” 

PRINT” '^^TiW^^TirsTimsT^iTilltitti ” 

PRINT”^^^T^fiJiT=T^^T=T^T=TiTSTmi " 

PRINT CHRfCD^ 

PR I NT ” iTiTiTtliTiTsTlT^TiTiTiTlTiTsTsTiTiT^riTiTiTiTiTlTsTlTiTiTiTil#i f i* »' 

PRINT”tit* " 

RETURN 

PRINT "73" 

F*INTCRNDa?*3? + l 
IFF=1 THEN R=39 
IFF=2 THEN fl*31 
IFF=3 THEN R“23 
IFF=4 THEN R*139 
IFF=5 THEN R=153 
IFF-6 THEN 8=5 
IFF-7 THEN R=30 
IFf-B THEN R=31 
PRlNTGHRtCR^ 

print" mm \ ! I I 

PRINT” \ I I t I I I /" 

PRINT”" 

print" mm mm * * * % m% 

PRINT" * ******### 

PRINT" * ********* 

PRINT" **** ********* 

PRINT" * * * * ***** * 

PRINT” ********* 

PRINT" **** **** *¥** * * ¥** " 

PRINT”" 

PRINT" / ! ! I 1 I I V 

GETLf:IFL$=" ” THEN RUNS 

PRINT" /111 \" 

PRINT"" 

PRINT"" 

PRINT"" 

FRINT"" 

PRINT”" 

PRINT”" 

FORE=1TOP5 NEXT 
G0T0233 


**** **** **** 

1 I ] \ 

" THEN RUNS 

! S 


* * *** 
** * * * 
** * * * 
* ** * * 
* ** * * 
* * * * 
* * *** 


Digital 


| ir 

H P0KE56334, PEEK £36334^123 Dj 

12 POKEV+21,0 H 

13 POKE 198.-0 

30 INPUT "CMINDTRST KLQKKEN CTTHMSS? ";UR* 

3S IFUR*>"125959"OOTO30 

40 ij i =vrlcm 1 n$< ur* . l. i > >*i6+vflL cruimIJRS, 2,1 y ; 

50 ie=VRL CHI B* C UR*, 3,1 } ?^16+VRL < MI lit tuRf 
60 US“VfiLCrrUf<UR*..5, 1 >Jf 16+VRL<MIDfCURf / 1>> 

70 I MRU T"RlM EL» PH ; Q*: I FQf O H fin “ > " PH " CO T 070 

S0 I"PH"THENU1=U10Rl28 
90 FRINT 

100 T =56331 = H=56330: S=5632Sf ■ I =56323 

U0 FOKET > U1 ■ POKEH j U2 ■ POKES, U3 

120 FOKEI,0"07=127 : F1=4 

130 HE= \ 6 : KB=19 7 : PL=223'RR=234 : B7=12S 

14 0 POKEV+21,255 ■ UVi =240 F H= 15 

150 T1*FEEK<T> : S1=PE£KCS? : Hl™FEEKCn>:T2*T1RHBQ7:POKEN^,P£EK<I>+PL 

160 P0KEN7, <TKB7>+Ffl ; F0KEN3, CSIBNBFHJ+FL : P0K6N4 j 81 /HE+RL 

130 P0KEN3.' (MlflHDFM) +PL : P0KEH2, Hl/HE+PL : FOKEN1, CT2BNDFn? +FL 

130 FOKEM0,T2/HE+PL : IFPEEKCKEJ=FIQOTOll 

2S0 GOTO150 

1000 V=33248 

1010 POKE 32?,223 ; P0KE828,0 
1020 [40=2048 1 Ml =2041 : N2= 2042 ; N3=2043 
1030 N4=2G44:N5-2045:N6=2046 N7-2047 

1050 I FREEK C14272><>3JHENFORT=14272T015038•REHDH- POKET,R : NE^T 

1070 POKEV+23 63 POKEV+29,63:PQKEV+12,50■POKEV+16.192 

1030 FORT=V+1T0V+15STEF2 : POKET.110:NEXT 

1110 FQRT =VI0V*10STE P4 

1120 PQKET / <T-V)f22+30 

1125 POKET-U.CT-V;*22+63 

1130 NEXT 

1140 POKEV+14,25:P0KE7+15j130:FQKEV+13,130 
1150 F0RT=V+33TDV+46 : FOKET,14 : NEXT 
1930 RETURN 

5000 REN ***#*####*#* 

5001 REM ¥ @ t 

5002 REH ####**¥****# 

5010 BRTB3.254,0,3.- 254.. 0.. 3, 254, g, 28, l, 192,28, 1, 192.28, 1, 192,28. 1, 192,2E 

f.020 nBTRas-i.Laatasa^aa^^.iM^uTJS'asii-iS 26 i ill as j S 

5030 DRTR192U3, 1,132,28,1,132,3,254.0,9,254.0 3,254 % l 1 * 132 

5040 REH 

5041 REM * 1 * 

5042 REH **#******#$# 


5050 BRTR0,112,0,0,112,0.0.112,0,3,240,0,3,240.0,3,240,0,9,112,0,0,112,0.0.112 
5069 DRTR0,B. 112,0,0, 112,0,9, 112. O. 0.112,0. 9. 122, 0, 0. 112,9,0. 112,3,9, M2, 0. 0 
5970 BHTR112.0,31.£?5,132,31■255.192.31-255,1?2,0 

5080 REH ##tff*t**f*#* 

5081 REH !T 2 * 

5982 REM 

5030 BRTR3,254,0,3.254.9,3.254.3.28,1,192.28.1.192.28.1■192.0,1,132.0,1,132 
5100 DRTflO,1,192,3,254,0.3.254,0,3-254,0,2S.0,9,28.0,0,£8.9.O 
5110 BRTR28,O.0.28.0.O.28,O,0.31.255.192.31,255,132,31,255,192.0 

5129 REM If#***##**##*' 

5121 REM * 3 * 

5122 FEM f*#*#*##*#** 

5139 DHTR3.254.0,3,254,9,3,254,0,28,1,192.23,1,192,28,1,132,0.1.192.0.1 

5140 PRTR192.0.1.192,0.126,0,0,126,0,0.126,0,0 1,192,0,1.132,0,1,132 
5150 DRTR28,1,132,28,1,192,28,1,192,3,254,0,3.254.0,3,254,9,0 

5160 REH #***»*#*##*# 

5161 REH * 4 # 

5162 REH ##*#**#*#*## 

5170 DRTR9,14.0.0,14.0.0.14,9,0,126,0.0,126,9,9,126,0,3,142,0,3,142,9,3,142,0 
5180 DRTR20,14,0,28-14.0.23,14,0,31,255,132,31,255,192,31,255,192 
5190 DRTR0,14,0,0,14.0.0,14,0,0,14,0,0,14,0,0,14,0,0 

5200 REH *#*#*#*##*#* 

5291 REM * 5 * 

5202 REH *#*#****#*#* 

5210 DF1TR3 1 ,255,132,31,255,192, 31,255,132,23,0, 0 , 28,0,0,23,0. 0,28.0,0 
5220 PRT823,O,0,28,0,9,31.254,9,31,254,0,31 254.9 0.1,132,0,1>132,0.1.192 

5239 ERTR23,1,192,28,1,192,28.1.192,3,254,9,3.254,0,3.254,0,0 

5240 REH #*#*#*#*##*# 

5241 REH # 6 * 

5242 REH ##**#******# 

5250 DHTR9,126,0■0■126.0.9.126,9,3,128-0,?.128,0,3-128-9,23,0.0,28.0,9,28.9.0 
5260 DRTR31.254.0,31,254.0.31,254,8,23,1,192,28,1,132.23,1 132,23,1,192,28,1 
5270 DRTR192,28.1,192,3,254,0,3,254,0,3,254,9,9 
52S0 REM **********#* 

5281 REM # 7 * 

5282 REM ************ 

5299 PflTBS1,255,132,31,255,192,31.255,132.0.1.192.0.1,192-9,1,192,0.14,0,0,14 
5390 ERTRO,0,14,0-0,112.0,0.112,9,0.112.0,3,128.0,3,128,0-3,128.9 
5310 m TR3 128,9,3.128,9,3,128,9,3-123,9 3,123,9,3,J23,9,9 

5320 REH ************ 

5321 REM * 8 * 

pfm ####*##*#*## 

5330 BRTR3 -254,9, 3, 254.0,3. 254,9,28, 1, ! 92, 28,1.-192,28. 1. 192,28,1,192. 28.1. 192 

5349 DRTR2S,1.192,3,254-9,3,254,0,3,254,9,28,1,192,28.1.192,28,1.192,28,1.192 

5350 DBTR2S.1.192,28.1■192.3.254.0-3,254-0,3,254.0,O 

5360 REH ************ 

5361 REH #9 * 

5362 REH ************ 

5370 PRTR3,254-0,3.254.0.3.254,0.28.1.192.28,1.192,28,1,192,28,1,192,28, 1,192 

5389 BRTR23,1■192,3,255-192,3,255,192,3,255,192,9,1,192,U,1,192,0,1-192 

5390 9HTR0,14.0,0,14.0,0,14,0,3,240,0,3,249,9,3,249,0,0 

5409 PEM ************ 

5401 REH * RH * 

5402 REH ************ 

5410 ERTR0.0,0.4,34,0,10,54,9,17,42,0,17,42,9,31.34,0,17.34,9,17,34,0 

5429 Cfl TR0,0J 0.0.9, M, 0J 9 - 0.- 9,9 - 0,0.0.0.0.0 ■ 0J 9,0.. 0,0 ■ 0 ■ 0,0 - 9 ■ 0,0 ■ 0 ■ 0 ■ 11 ■ 0 ■ 0, 0 
■l,192^ 43g B8TR0,0,0,0.0 

■ 28 1 f***# 1 *#***** 

’’ 5441 REH * PH * 

5442 REH ************ 

5450 DRTR9,0,0,0,0,0.0.0,9.0,0.9.9,0-0,0,0,9,0,0,9,9,9,0,-0.0-0-9 
5460 BRTfl?Pi, 34.-9, 17,54.0. 17-42,9,30,34,0,16-34.0.16,34.-9, 16,34,9,9 
5479 DRTR9,0,9,9 - 9, @, 9,9. 9,9, 9, 0, 9,9 
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10 REM RUNDT PiJ GULVET for 2 spiliere- \ 

20 OH ERROR RUM \ 

30 GOTO 370 \ 

40 IFPOINT(Xi*, Yl%> OOGOTOl130 \ 

30 IFPOINT (X2S, Y2S) O0GQT012S0 \ 

60 GCOLO, 3 : MQVEX1 %, GY1%:DRAWX 1%, Y1*:GY1*-Y1%~— 

70 GCOLO, 6:M0VEX2tf,GY2%:DRAWX2%,Y2*:GY2tf~Y2% \ 

80 I FW9»— 1 GOT 01 BO \ \ 

90 I F AD VAt_ 11) DIVD* < 1 B*= 1 \ \ 

100 IFADVAL(1)DIVD%> 1B*=2 \ 

110 IFADVAL<2>DIVD*<1B*=3 \ 

120 IFADVAL(2)DIVD*) 1B*=4 \ 

130 I FADVAL < 3) DI VD* < 1 A*=1 

140 IFADVAL<3)DIVD*)1A*=2 ^ ^ 

150 IFADVAL (4) DIVD* (1 A*=3 —" 

160 IFADVAL<4)DIVD%> 1A%=4 — 

170 G0T0260 1 ^ 

ISO 1FINKEY < -104>B%= 1 \ — 

190 IFINKEY(-103)B*=2 V—^ 

200 IF INKEY 1-105)B^=3 \ \ 

210 IFINKEY W3) B*”4 \ \ 

220 IF INKEY (—S3) A*=l \ \ 

230 IFI NKEY f -67> A*=2 \ -"7- 

240 IFINKEY(-9S>A*=3 % 

250 IFINKEY<-66)AX=4 X 

260 BOUND 1, -9, Si*, 1:S1*=S1*+l:S0UND2, -9, 52*, 1 :52%^S2*+1 

270 0NA*G0T0260, 290, 300, 310 

280 X1%=X1 *+8 :G0TD32O 

290 X1%-X1*-S:G0TO32O 

300 Y1%—Y1*-81G0TC320 v 

310 Yl*=Yi*+8 \ 

320 QNB*G0T0330,340,350,360 \ 

330 X2*=X2*+8:G0T04Q \ 

340 X2*~X2*-8 J GOT04O \ 

350 Y2*=Y2*-S;G0TD4G \ 

360 Y2*=Y2*-t-8:GQT040 \ 

370 MODE 1 sVDU 23,1,0;0;0;0; -V- 

380 VDU 23,66,126,51,51,62,51,51,126,0 \ 

390 VDU 23,68, 126, 51,51,51,51,51, 126,0 \ 

400 VDU 23,86,99,99,99,54,54,2S,28, O \ 

410 VDU 23,91,31,60, 108, 127, 108, 108, 111,0 \ 

420 VDU 23, 92, 62, 103, 111, 123, 115, 99, 62, 0 \ 

430 VDU 23,93,28,0,62,99,127,99,99,0 \ 

440 ENVELOPE 2, O, O, 0, — 1, 1, 1,255, 0,0,0, O, O, 0 \ 

450 ENVELOPE 3, 3, 0, 0, 0, 0, 0, 0, 126, - 2 , ,~1,126, 100 \ 

460 VDU 19,3,6,0,0,0 

470 CLS : GCOL 0,2 

480 DRAW 1279, 0SDRAW 1279,1023 

490 DRAW O, 1023SDRAN 0,0 

500 HOVE 4,0sDRAW 4,1023 

510 MOVE 1275, 0SDRAW1275,1023 

520 MOVE 12,0:DRAW 1266,S:DRAW 1266,1012 

530 DRAW 12,1012: DRAW 12,8 

540 MOVE 16,0:DRAW 16,1012 

550 MOVE 1262,8 s DRAW 1262,1012 

560 COLOUR 1 

570 PRINTTAB (10, 3) "tf*****************# 1 ' 

580 PRINTTAB <10,4)"* «" 

590 PR I NTT AB (10, 5) 11 * *" 

600 PRINTTAEUlO, 6) "* *"V-- 

610 PRINTTAB*10, 7) "*******************" \ 

620 COLOUR 2! PR I NTT ABU 9, 4) " \ 

630 PRINTTAB(12,5)"RUNDT PA GULVET" \ 

640 COLOUR 3 


12 * 







PRINTTAB (12, 10) "Fdp 2 spillere, " 
COLOUR 2:8=174 
FOR X=1 TO 38 STEP 2 
SOUND 1,-11, S, 1 
SOUND 2,-11, S—1, 1 
S-S-4 

PRINTTAB (X, 12) 11 _ 

NEXT:COLOUR 2 

PRINTTABC6,15)"GUL styrer med A 


COLOUR 3 

PRINTTABt8, 16) " 

PRINTTAB(6,17)"BLA styrer med 


Rundt pa 


COLOUR 1 

PRINTTAB C3, 21) ‘'DET GaLDER DM IKKE AT RAMME NGBET. 1 
PRINT:COLOUR 2 
FOR X=1 TO 38 

PRINTTABtX, 24) "_ n ; 

NEXT:COLOUR 3 

PRINTTAB (8, 28) "Bruges JOYSTICK ? (J/N)*' 

FOR S=-15 TO O STEP 0-3 
SOUND 1,S,00,1 
SOUND 2, S, SI, 1 
NEXT 
Q*=GET# 

IF QW*=0:GOTO 920 
IF 0*="N" W*=l:GOTO 920 
GOTO 880 
MODE 2 

VDU 23, l r 0;0:0;0; 

AP^O:BP=0:0M=10 = D*=200GQ 
COLOUR 144?CLS=GCOL 0,1:MOVE 0,4 


»Rundt p6 gulvetfl er et TRON- 
lignende spil beregnet til en 
32K BBC computer. 
Programmet k 0 rer kun med 
to splllere, og du kan selv 
vcalge, om det skal foregd 
med joystick eller Ira tastatu- 
ret, I 0vrigt er programme! 
sel vlorklarende. 


BBC- 

B 


Hans Hansen 
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gulvet 


960 DRAW 0,1023:DRAW 1279,1023 
970 DRAW 1279,4 * DRAW 0,4 
900 Xl*=300:Yl*=5GG:BYl*=Yi* 

990 X2*=979:Y2*=500:GY2*=Y2* 

1000 A*= 1 ! B*=2: S1 *=0: 52*= 100 

1010 FOR G=1 TO 2000:NEXT 
1020 FOR 1=3 TO 1 STEP -1 
1030 PRINTTAB(9, 161;I 

1040 FOR S—15 TO 0 

1050 SOUND 1,S,60,2 

1060 SOUND 2,5,61,2 

1070 NEXT 

1060 FOR J=1 TO 1400sNEXT 

1090 NEXT 

1100 PRINTTAB <9, 16) 11 “ 


*FX 15, 0 
GOTO 270 

IF POINT (X2*,Y2*) O 0 THEN 1410 

SOUND 17,0,200,1 

SOUND 16,3,7, 1 

VDU 19, 0, 3, 0,0,0 

FOR K=1 TO 100:NEXT 

YOU 19,0,0,0,0,0 

GCDL 0,3 

FOR 1=0 TO 8 

RX*=RND (100)^1: RY*=RND (100) -1 
MOVE XI*,Y1*=PL0T 1,RX*,RY* 

MOVE XI*,Yi*: PLOT i,-RX*,RY* 

MOVE XI*,Y1*:PL0T 1,RX*,-RY* 

MOVE X1*,Y1*:PL0T 1,-RX*,-RY* 

NEXT 

AP=AP+i:GOTO 1600 
SOUND 17,0,200,1 
SUUND 16,3,7,1 
VDU 19,0,6,0,0,0 
FOR K=1 TO lOGsNEXT 
VDU 19,0,0,0,0,0 
FOR I*=0 TD 8 

RX*=RND Cl00)—1 *RY*=RND(100)-i 
MOVE X2*,Y2*:PLOT l,RX*,RY* 

MOVE X2*,Y2*:PLDT 1,-RX*,RY* 

MOVE X2*,Y2*:PL0T 1,RX*,-RY* 

MOVE X2*,Y2*!PL0t 1,-RX*,-RY* 

NEXT 

BP=BP+1JGOTO 1600 
SOUND 17,0,200, 1 
SOUND 16,3, 7, 1 
FDR L=1 TO 2 
VDU 19,0, 7, 0;0 
FOR K=1 TO 88:NEXT 
VDU 19,O,O,O;0 
FOR M=1 TO 88iNEXT 
NEXT 

FOR I%=0 TO 8 

RXX=RND(1Q0> — 1:RY*=RND(100)-1 

GCDL 0,3:MOVE XI*, Yl* = PLOT 1,RX*,RY* 

BOOL 0,6=MOVE X2%,¥2*:PLOT 1,RX*,RY* 

GCDL 0,3: MOVE XI*, Yl* = PLOT 1,-RX*,RY* 

GCDL 0,6:MOVE X2*,Y2*:PLOT 1,-RX*,RY* 

GCOL 0,3:MOVE Xi*,Y1*SPLQT 1,RX*,-RY* 

GCOL 0,6:MOVE X2*,Y2*:PL0T 1,RX*,-RY* 

GCOL 0,3:MOVE X I*,Y1*:PLOT 1,-RX*,-RY* 

GCOL 0,6:MOVE X2%,Y2*:PLOT 1,-RX*,—RY* 

NEXT:FOR J=1 TO 4444:NEXT 
COLOUR 150:COLOUR 0 
PRINTTABQ7, 0) ; " 

=0 THEN PRINTTAB<17, 1) 0 "ELSE PRINTTAB<17, 1) ; " '‘;AP; 

PRINTTAB U7, 2) ■ “ 

COLOUR 147 
PRINTTAB (O, 0) ■ *' 

=0 THEN PRINTTAB(0, 1> : 

PRINTTAB10, 2) ; IJ 
OM-OM-1 

IF 0M=1 THEN 1750 
IF QM=0 THEN 1810 
COLOUR 148: PRINTTAB (2, 29) ; J1 

COLOUR 7 i PR3NTTAB<2,30) *" ";0M;" omq, tlIbage 
PRINTTAB < 2, 31)• ** " ■ 

GOTO 1790 

COLOUR 145:COLOUR 7 
PRINTTAB(2,29) 

PRINTTAB(2, 30) : 

PRINTTABC2, 31> : 

FOR Q=1 TO 7000:NEXT 
CLS:GOTO 950 

IF AP=BP COLOUR 144:PRINTTAB (5, 2) " 

IF AP=BP COLOUR 2:PRINTTAB(5,3)" UAFGJORT " 

IF AP=BP COLOUR 144:PRINTTAB(5,4)" 

IF AP <BP COLOUR 144: PRINTTAB <4, 2) 

IF APfBP COLOUR 3: PRINTTAB (4, 3) " GUL VINDER ’■ 

IF AP (BP COLOUR 3: PRINTTAB <4, 4) ■■ 

IF AP> BP COLOUR 144:COLOUR 6:PRINTTAB<4,2)" 

IF AP> BP PRINTTAB (4, 3) fl BLA VINDER " 

IF AP> BP PRINTTAB <4, 4)'• 

COLOUR 145:FOR 1=15 TO 17 
PRINTTAB (7, I) 11 
NEXT 

COLOUR 7 

PRINTTAB <7, 16) ,p SLUT ,J 
IF W*=0 GOTO 2000 
COLOUR l 48:PRINTTAB<0, 28)" 

COLOUR 7:PRINTTABCO,29)"Tryk A og : samtidig" 

PRINTTAB(O,30)" 

GOTO 2050 

COLOUR 148: PR 3 NTTAB (0, 28) ,J 

COLOUR 7:PRINTTAB<0,29)" Tryk begge KNAPPER " 

PRINTTAB < 0,30)" "■ 

IF (ADVAL(O)AND3>«3 GOTO 920 
GOTO 2030 

IF INKEY-66 AND INKEY-73 GOTO 920 
GOTO 2050 


ELSE PRINTTAB(0. 1) 


"TBP; 


Sidste owgang! 
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Rendez-Vous ei et rumspil til 
Texas 99 4A, og er pd h0jde 
med de spil, der saelges 1 for- 
retningerne. 

Lars 0sterbaiIe 


-350,-5,20):: BR=BR-5 ELBE I 
F K=VEN OR K=HDJ THEN CA 


TI99 A 


100 !/////////////////////// 
/ RENDEZ-VOUS 2.6 / 

/ VERSION 1.1 

/ / LARS QSTERBALLE 19 

84 / //////////////////// 


/ / LARS QSTERBALLE 19 
84 / //////////////////// 
//// 

110 CALL CLEAR :: CALL SCREE 
N(2) 

120 C=. 1 :: BR=400 := RANDOM 
1ZE :: CALL PEEK(-28672,TALE 
)! ER TALESYNTHESIZEREN 
TILSLUTTET7 

130 DATA FIVE,FOUR,THREE,TWO 
.ONE,ZERO,Q 

140 CALL COLOR ( 1 . 16 . 1 , 2 , 7 , 1 , 
3 , 7 , 1 , 4 , 7 , 1) : : FOR F=S TO 12 
:: CALL COLOR(F,13,1):: 

NEXT F 


420 DISPLAY AT(9,1) 

430 POINT=0 :: BR=4G0 :: C=. 
1 :s FL=0 FLA=0 :s IF TAL 
E THEN CALL SAY("PRES5+A 
1+KEY+TO+PLAY+AGAIN") 

440 DISPLAY AT(11,4):"TRYK R 
EDO ELLER BACK 1 '; 

450 DISPLAY AT<9,10):"GAME □ 
VER" :: FOR F=1 TO 15 :: CAL 
L KEY(3,K,S);: IF K=6 TH 
EN 170 ELSE IF K=15 THEN GOB 
UB 1680 :: GOTO 170 
460 NEXT F := DISPLAY AT<9,1 
>:: FOR F=1 TO 15 :: CALL KE 


Y (3, K, S) ; : IF K=6 THEN 1 
70 ELSE IF K=15 THEN GOSUB I 


150 CALL COLORCO,11,11):: GO 
SUB 820 :: GOSUB 1340 :: CAL 


L MAGNIFY(3)s: GOSUB 175 
O 

160 !//SKEARM—BRAFIK+FASE// 
170 CALL CLEAR :: FOR F=1 TO 
15 :: CALL HCHAR<RND*23+1,R 
-NDV31+1.33)s: NEXT F :: 

CALL COLOR(O,11,11):: CALL H 
CHAR(24,1,30,32) 

ISO V-0 :: A=G :: B=0 :: CAL 
L SPRITECttl,100,15,1,128,#2, 
96,7+FL *4,185,RND * 25 q+1, 

O,(RND-RND)*10) 

190 CALL SOUND(-10,110.0) 

200 IF FL=0 THEN 240 
210 FLA=1 :: IF 0.6 THEN C= 
- 1 

220 CALL COLOR(0,8-FL,8-FL> 
230 FOR F-3 TO 3+FL :: CALL 
SPRITE(#F,104,RND*13+3,F*45- 
75,120,0,(RND-RND)t(C*10 
+20));: NEXT F 

240 DISPLAY AT(1,1>:USING "S 
CORE #### TOP ####" 

:POINT,HIGH 

250 DISPLAY AT (3, 1 > = USING Ji F 
ASE NR. #* #":FL+1+C; 

260 f/////LANDINGSRUTINE//// 
270 CALL KEY(3,K,S);: A=A-(K 
=NED)+(K—OP)+C :: B=B-(K^HOJ 
)+(K=VEN) 

280 DISPLAY AT(3,19):USING " 

BRINT ####";BR 

290 IF BR<—O THEN 650 

300 IF K=OP THEN CALL SOUND( 


LL SOUND(-350,-6,23):: BR=BR 
-1 

310 CALL POSITION(#1,X,Y):: 
IF X >169 AND X<2G0 THEN CALL 
MOTION(#1.0,0,#2,0,0):: 

CALL COINC(ALL,V) 

320 IF X>240 THEN GOSUB 620 
330 IF V THEN 490 ELSE IF X> 
169 THEN M$— 11 KOLLISION 

MED JORD" :: GOTO 370 
340 IF X<169 THEN CALL COINC 
(ALL-V):: IF V THEN Mt= 11 KO 
LLISION MED ASTEROIDE" : 

: GOTO 370 

350 CALL MOTION(#1,A,B)s: GO 
TO 270 

360 \////SPILLET ER SLUT//// 
370 CALL DELSPRITE(#2,#3,#4, 
#5,#6):: GOSUB 690 :: FLAG=D 
_. KRASH—O 

380 IF TALE THEN CALL SAY("S 
□RRY+PARTNER") 

390 HIGH=MAX(HIGH-POINT) 

400 DISPLAY AT(9-I);M$; 

410 IF POINT=HIGH AND POINTC 
>0 THEN GOSUB 1460 ELSE IF B 
R>0 THEN CALL PAUSE(500) 


680 :: GOTO 170 

470 NEXT F := GOTO 450 

480 \/ER LANDING FOR HAARD7/ 

490 IF A>=4 THEN M*= J ' 

FART FOR H0J” :: GOTO 370 
500 CALL POSITION(#1,X-Y-#2, 
XX,YY):: CALL LOCATE(#1,169, 
Y) : ; BO=ABS(16-ABS(YY-Y) 

) 

510 DISPLAY AT(9,9)sUSING 11 B 
ONUS ###";BO::: FOR F=0 TO 3 
O :: CALL SOUND(-99,110, 

F,600,F,1OOO,F>:2 NEXT F :: 
DISPLAY AT(9,1) 

520 POINT=POINT+BO :: DISPLA 
Y AT(1,1):USING "SCORE ## 
## TOP ####":POINT 

-HIGH 

530 FOR F=110 TO HQ+B0*15 S 

TEP 4 s: DISPLAY ATC3,25):US 

ING '*####":F+BR-I10 :: C 

ALL SOUND(-199,F*2,lO):: NEX 

T F :: BR-BR+F-114 

540 IF FLAG THEN 570 

550 GOSUB 1020 

560 IF BR<=0 THEN 650 ELSE I 

F KRASH THEN 370 ELSE IF SUC 

CES THEN 510 

570 IF C<. 7 THEN C=C+.1 

580 IF 0.6 AND FL<2 THEN FL 

-FL+I 

590 IF TALE THEN CALL SAY( M G 
OOD+WORK") 

600 FLAG=0 :: SUCCES=Q :: CA 
LL PAUSE(300):: CALL DELSPRI 
TE(ALL):: GOTO 180 
610 f//////FOR HOEJT//////// 
620 DISPLAY AT(9,9):"HIMMELS 
TREJF" ; 

630 A=—A :: CALL MOTION(#1,A 
,B):s FOR F=0 TO 30 STEP 2 : 
: CALL SOUND(—99,523,F): 

: NEXT F :: DISPLAY AT(9,9)s 


640 CALL POSITION(#1,X,Y):: 
RETURN 

650 DISPLAY AT (3, 19) : USING 11 
BRINT ####":O 

660 GOSUB 740 :: DISPLAY AT( 
9,1) 

670 GOSUB 680 :: FLAG=0 :: K 

RASH=0 :: GOTO 390 

680 !//////EKSPLOSION/////// 

690 CALL POSITION(#1, X,Y): : 

CALL DELSPRITE C#5,#6):: IF Y 

>248 THEN Y-248 

700 CALL MAGNIFY(1) ; s CALL S 

PRITE(#1,100-7,X,Y,-20,-20.# 

2,101,5,X+8,Y,—5,—40) 

710 CALL SPRITE(#3,102,3,X-Y 
+8,-20,20,#4,103,11,X+S,Y+8, 
-5,40) 

720 FOR F=Q TO 30 :: CALL SD 
UNO(—99-—5,F):: NEXT F :: CA 
LL DELSPRITE(ALL): : CALL 
MAGNIFY(3):: RETURN 


Rend* 


■730 ?////INTET BRAENDSTDF/// 
740 DISPLAY AT(9,9):"NUL BR£ 
NDSTOF" 

750 FOR F=0 TO 30 ;: CALL SO 
UND(-99,262,F>:: NEXT F :s M 

*=»" 

760 CALL DELSPRITE(#3,#4,#5 > 

770 FOR F=1 TO 90 

780 CALL MOTION(#1,A+F,B) 

790 CALL POSITION(#1-X,Y):: 
IF X>169 AND X<200 THEN RETU 
RN 

BOO CALL POSITION(#1,X,Y):: 
IF X>169 AND XC200 THEN RETU 
RN 

BID NEXT F :: RETURN 

820 f//////KARAKTERER/////// 

830 CALL CHAR (33, 11 1 11 ) 

840 CALL CHAR(40,"0010387070 
7Q381C0Q381C0E0E0E1C38",63," 
007CEEEE0E3C003C 11 ) 

850 CALL CHAR(100,"804023173 
F6C6C1C6FEFEFFFE34747E0090AC 
4FBFS949498F6F7F7FFC7E2E 
207") 

860 CALL CHAR(104,"000013608 
3COB8C6818040483403010000C03 
00E916112C539S545522246B 
8 ") 

870 CALL CHAR(64,"3C42BDA1A1 
BD423COOFEEEEEEEFEEEEEOOFEEE 
EEFCEEEEFE007CEEEEE0EEEE 
7C") 

880 CALL CHAR(68,"OOFCEEEEEE 
EEEEFCOOFEEEEOFOEOEEFEOOFEEE 
EOFOEOEOEOOOFEEEEEEOFEEE 
FE ,J ) 

890 CALL CHAR(72,"OOEEEEEEFE 
EEEEEEOOFE3838383838FEOOFEEE 
OEOEEEEEFEOOEEEEEEF8EEEE 
EE") 

900 CALL CHAR(76,"QOEOEOEGEO 
EEEEFE00EEFED6C6EEEEEE00CEEE 
FEFEFEEEE6007CEEEEEEEEEE 
7C" ) 

910 CALL CHAR(80,"OOFEEEEEEE 
FEEOEOOOFEEEEEEEEEECF AOOFEEE 
EEEEFCEEEEOOFEEEEOFEOEEE 
FE M ) 

920 CALL CHAR(84,"OGFEFEBA38 
38383800EEEEEEEEEEEEFE00EEEE 
EEEEEE6C3S00EEEEEEEEC6D6 
FE M ) 

930 CALL CHAR (88- ,I 00EEEEFE38 
FEEEEE00EEEEEE7C383S3800FEFE 
3E7CF8FEFE") 

940 CALL CHAR(48,"007CEEEEEE 
EEEE7C003878F8383838FE00FEEE 
OEFEEOEEFEOOFEEEOE1COEEE 
FE IJ ) 

950 CALL CHAR(52-"OOEEEEEEEE 
FEOE O EOOFE EO F EOEEEE EFE OOF EEE 
EOFEEEEEFEOOFEEEOE1C3838 
38") 

960 Q*="FFFFFFFFFFFFFFFF" :: 
B$=RPT$("O",16):: CALL CHAR 
(96,Q^BS£(Q^iB$) 

970 CALL CHAR(56,"OOFEEEEEFE 
EEEEFEOOFEEEEEFEOEEEFE") 

980 CALL CHAR(108,"070402313 
F2ABF7F7FBF213119&P0703E0204 
08CFC54FDFEFEFDFCFCF8F0E 
OC") 

990 CALL CHAR(91,"007EDAD8FC 
D8DADE"- 92,"007AE4EEFEEE4EBC 
", 93, 11 0038007CEEFEEEEE" ) 
lOOO RETURN 

101O !////SAMMENKOBLING///// 
1020 FJ_AG=1 A=0 : : B=0 
CALL SPRITE(#6,108,RND*13+3 
,26,RND*255+1,0,(RND-RND 
5 *(C*10+13)) 
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1030 DISPLAY AT(9,9):"RENDEZ 
-V0US" :: FDR F=0 TO 30 :: C 
ALL SOUND(-99,1200,F):: 1 

NEXT F \ 

1040 RESTORE :: GOSUB 1240 
1050 CALL KEY(3,K.S):: IF K< 
>0P THEN 1050 ELSE DISPLAY A 
T(9,11 

1060 CALL KEY(3,K,S):: A=A-( 
K=NED)+(K=OP)+C B=B-(K=HO 
J)+(K=VEN) 

1070 IF K=DP THEN CALL SOUND 
(-350,-5,20):: BR=BR-5 ELSE 
IF K=VEN OR K=HOJ THEN C 
ALL SOUND(-350,-6,23):: BR-B 
R—1 

1080 DISPLAY AT(3,19):USING 
11 BRI NT ####";BR 
1090 IF BR<=0 THEN RETURN 
llOO CALL POSITION(#1.X,Y) 
1110 IF X>169 AND X<200 THEN 
KRASH=1 :: Mt=" KOLLISI 

DN MED JORD" RETURN 
1120 CALL POSITION(#1,X,Y) 
1130 IF X<47 THEN 1180 
1140 CALL COINC(ALL,V) : : IF 
0 AND X<169 THEN KRASH=1 :: 
Mt=" KOLLISION MED ASTE 
RGIDE" :: RETURN 
1150 IF X<47 THEN 1180 
1160 IF X >240 THEN GOSUB 620 
1170 CALL MOTION(#1,A,B) : : G 
DTO 1060 

1180 CALL COINC(ALL,V):: IF 
NOT V THEN 1160 
1190 CALL MOTION(#1,0,0,#6,0 
,0):: CALL POSITION(#1,X,Y,# 
6, XX,YY) 

1200 IF A<-4 OR A>4 THEN KRA 
SH=1 :: Mt=" FART FOR 

H0J" :: RETURN 
1210 IF X<26 THEN KRASH=1 :s 
Mt=“ KOLLISION MED SKIB 

" :: RETURN 

1220 SUCCESS1 :: B0=ABS(16-A 
B5(YY-Y)):: RETURN 
1230 '/////NEDTAELLING////// 
1240 FOR F=5 TO O STEP -1 
1250 DISPLAY AT(9,9):USING " 
TfELLING F; 

1260 IF TALE THEN READ At :: 

CALL SAY(At)ELSE GOSUB 1320 
1270 NEXT F 

1280 DISPLAY AT(9,9):“ LIFT 
OFF "j 

1290 IF TALE THEN CALL SAYC* 
CONNECTED”)ELSE GOSUB 1320 
1300 RETURN 

1310 '/////////BIP/////////7 
1320 CALL S0UND(-10,2000,0): 

: FOR P=1 TO 200 :: NEXT P : 

: RETURN 

1330 !////START—BILLEDE///// 
1340 CALL HCHAR(1,3,30,30):: 

CALL HCHAR(24,3,30,30):: CA 
LL VCHAR(2,3,30,22):: CA 
LL VCHAR(2,32,30,22) 

1350 DISPLAY AT(7,8):"RENDEZ 
-VOUS 2.6"; 

1360 DISPLAY AT(11,13):"3 19 
84":;: DISPLAY AT(13,8):"LAR 
S 0STERBALLE"; 

1370 IF TALE THEN CALL SAYC’ 
WELL+COME+TO+THE1+SPACE+COMM 
AND") 

1380 DISPLAY AT C17, 7) : "VIELG 
TASTER (J/N)?": 

1390 CALL KEY(3,K,S):: IF K< 
>74 AND K< >78 THEN 1390 
1400 IF K=74 THEN GOSUB 1550 
s: GOTO 1420 
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1410 0P=69 :: NED=88 :: HGJ= 
68 :: VEN=83 :: DISPLAY AT(1 
7,7):" BRUG PILENE. 

" : : : CALL PAUSE (200) : : DISPL 
AY AT(17,7):" 

•j _ 

14^0 DISPLAY AT(17,3):" 

V(ELG NIVEAU? r ‘: 

1430 CALL KEY(3,K,S):: IF S< 
=0 THEN 1430 ELSE IF K=74 TH 
EN GOSUB 1680 
1440 CALL CLEAR s: RETURN 
1450 !//HIGHSCORE—MELDING/7/ 
1460 FOR F=1 TO 3 
1470 DISPLAY AT(1,1):USING " 
SCORE ####":POINT: 

1480 FOR G=0 TO 30 STEP 2 
1490 CALL SOUND(—99,330,G) 
1500 NEXT G 

1510 DISPLAY AT(1,1):RPTt(" 
"13)' 

1^20 &ALL PAUSE(100):; NEXT 
F 

1530 DISPLAY AT(1,1):USING “ 

SCORE #### TOP #### 

":POINT,HIGH::: RETURN 

1540 I/////VAELG TASTER///// 

1550 CALL CLEAR 

1560 CALL HCHAR(1.3,30,30):: 

CALL HCHAR(24,3,30,30):: CA 
LL VCHAR(2,3,30,22):: CA 
LL VCHAR(2,32,30,22) 

1570 DISPLAY AT(3,3):"HVILKE 
N TAST FOR:"; 

1580 DISPLAY AT(5.3):"OP": 
1590 ACCEPT AT(5,11)VALIDATE 
(UALPHA, NUMERIC, r ’: /=" ) BEEP S 
IZE(1):OPt :: OP=ASC(OPt 
) 

1600 DISPLAY AT(7,3>:"NED": 
1610 ACCEPT AT(7,11)VALIDATE 
(UALPHA,NUMERIC,":/=")BEEP S 
IZE(1):NEDt :: NED=ASC(N 
EDt) 

1620 DISPLAY AT(9,3):"VENSTR 
E"' 

16^0 ACCEPT AT(9,11)VALIDATE 
(UALPHA, NUMERIC, BEEP S 

IZE(1):VENt :: VEN=ASC(V 
ENt) 

1640 DISPLAY AT<11,3):"H0JRE 
■1 . 

llso ACCEPT AT(11,11)VALIDAT 
E (UALPHA, NUMERIC, ": /=**) BEEP 
SIZE(1):HOJt :: HOJ=ASC( 
HOJt) 

1660 GOSUB 1320 :: RETURN 
1670 */VAELG SVAERHEDSGRAD// 
1680 CALL CLEAR :: CALL HCHA 
R(1,3,30,30):: CALL HCHAR(24 
,3,30,30):: CALL VCHAR(2 
,3,30,22):: CALL VCHAR(2,32, 

So’22J 

1690 DISPLAY AT ( lO. 3) - "SWRM 


EDSGRAD?" ; 

1700 DISPLAY AT(12,3) : "VIELG 
1,2 ELLER 3": 

1710 ACCEPT AT(12,20)BEEP VA 
LI DATE("123")SIZE(1):L :: FL 
=L—1 

1720 FOR F=0 TO 30 STEP 10 : 
: CALL SOUND(-99,3000,F,2900 
,F,3100,F):: NEXT F 
1730 RETURN 

1740 !////INSTRUKTIONER///// 

1750 CALL SCREEN(15):: DISPL 
AY AT(1,1):" RENDEZ-VOU 

g 2 ^ 




1760 DISPLAY AT(4,1):"LAND D 
IT RUMSKIB SA SIKKERT 

SO 

M MULIGT PA KLODEN r QUAQ'." 

1770 DISPLAY AT(8,1):"FOR AT 
FA FLEST POINTS, SKAL 

DU 

LANDE N0JAGTIGT PA DEN" 

1780 DISPLAY AT(12,1):"LILLE 
PLATFORM, DER BEVffGER 

S 

IG PA OVERFLADEN." 

1790 DISPLAY AT(16,1):"LAND 
IKKE FOR HURTIGT OG 

I 

SIER IKKE VED SI DEN AF. . . “ 
1800 DISPLAY AT(20,1):"NAR D 
U ER LANDET ER DIN 

N 

IESTE OPGAVE AT LAVE EN GOD" 
1810 DISPLAY AT(24,1):"SAMME 
NKOBLING MED J FAR ! F N J " 

1820 GOSUB 1910 

1830 DISPLAY AT(1,1):"HER SK 

AL DU LIGELEDES VffRE 

FO 

RSIGTIG, DG LAND IKKE PA" 
1840 DISPLAY AT(5,1):"TOPPEN 
AF FART0JET.... 

FO 

R HVER AF DISSE FASER DU" 
1850 DISPLAY AT(9,1):"FULDF0 
RER, VIL TYNGEKRAFTEN 

ST 

IGE(SE r FASE NR 1 ), OG NAR" 
1860 DISPLAY AT(13,1):"DU HA 
R GENNEMF0RT SEKS FASER 

B 

LIVER DU SENDT VIDERE TIL" 
1870 DISPLAY AT(17,1):"NffSTE 
SKIERM, HVOR NYE FOR- 

H 

INDRINGER DUKKER OP." 

1880 DISPLAY AT(24,1):" 

HELD 00 LYKKE..." 

1890 GOSUB 1910 :: CALL SCRE 
EN(2):: RETURN 
1900 '///TILFAELDIGE LYDE/// 
1910 TQ=RND*1000+140 :: FOR 
F=0 TO 30 STEP 2 :: CALL KEY 
(3,K.S):: IF S THEN 1930 
ELSE CALL SOUND(-99,TQ+F.F) 

:: CALL SOUND(-99,TQ+100+F,F 

1920 NEXT F GOTO 1910 
1930 CALL CLEAR :: RETURN 
1940 !////PAUSE RUTINE////// 
1950 SUB PAUSE(X):: FOR F=1 
TO X :: NEXT F :: SUBEND 
1960 !////////////////////// 
1970 END 
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I programme! har du mulig- 
hed lor 15 poster i hver mdi¬ 
ned og startes med GOTO 
3720 den lorste gang, del k 0 - 
res. Dette gares, lor at Id de 
danske karakterer genereret, 
Programmet har mulighed tor 
at oprette budgetien analy¬ 
ser, indtaste indtcegt og se 
mdnedens lorbrug. Som en 
ekstra finesse bliver budget^ 
posteme automatisk sat i alla- 
betisk orden.n 

Ole L. Larsen 



*HCT 


1 000 REN HJEnriE-BLJOGETn OLE L, LARSEN 
1010 REn OPRETTE BUDGET 
1020 Old AU 5,12) 

1030 Din ^(15, 12j 15J 

1040 DATA " J ANUAR " j " FEBRUAR", "MARTS" » " AP 
R1L", "NAM, 11 J UN 1 13 , "JULI 11 ,"AUGUST ", "SEPTE 
UBER" i "OKTOBER 11 , "NOVEMBER" j "DECENBER 1 " 

1050 Din M*U2,9] 

1060 RESTORE 
1070 FOR n=! TO 12 
1080 READ M*(m 
1080 NEXT M 

1100 LET Bl=@i LET 011-0: LET BJ2=0: LET 
SI3=0 : LET BI4=0 

3110 PRINT INK M INUERSE HAT 0,0M BU 
DGET PROGRAN 

1120 PRINT INK 7; PAPER MAT 16,0;" D 
ER ER PLADS TIL 15 POSTER 
1130 PRINT INK ?\ PAPER HAT 17,0M SKR 
IU ’X 1 I OEM DU IKKE BRUGES ** 

1140 BEEP ,2,20: INPUT PAPER 6MHUIIKET 
hR PsKKER 8UDGETTET "it 
1150 FOR Q=1 TO 15 
1160 PR INT AT Q,2-LEN STR* 0 >0 
1170 SEEP .2,20: INPUT PAPER 6j"NAUN Ph 
UDGIFTEN M i LINE 2$ 

1180 LET fl*( 0, U-lt 
1130 PRINT AT Q,3iA*tQM) i 
1200 NEXT G 
1210 CLS 

1220 FOR 0=1 TO 15 
1230 FOR N=1 TO 12 

1240 PRINT INK I; INUERSE 1jAT 0,0MINO 
TAST GEL E B FOR 

1250 PRINT DOER ]; FLASH 1jAT 0, 17jA*[Q 
* 3) 

1260 PRINT INK 7i PAPER 1JAT I6 3 0 ;"SKRI 
U 0 I OE POSTER DER HEDDER X 1 ' 

1270 PRINT AT n,2-LEN STR* M jN;AT m,3 

CRD ; 

1260 BEEP * 2j 20 : INPUT ■ PAPER 6 i "BEL fB F 
OR NhNEDEN ";A(Q,m 

1230 PRINT AT ni25-LEN STR* A(Q,N)jA(Q,H 
3 JAT 

1300 NEXT H 

1310 PRINT INK 7; PAPER MAT 18,0;" E 
R OISSE TAL RIGTIGE CJ^N) 

1320 PAUSE 0 

1330 IF JNKET** ,l J" ANO Q06 THEN CLS : 
NEXT 0 

1340 IF INKEY*="J" AND Q> 15 THEN GO TO 
1370 


3 350 IF INKET$="N ,< THEN CLS : GO TO 123 
0 

1360 GO TO 3320 

1370 GO SUB 3120 

1380 GO TO 3330 

3390 REn BUDGET OUERSIGT 

1400 LET N=1 

1410 CLS : PRINT INK ] j INUERSE MAT 0, 
0J" BUDGET OUERSIGT 

1420 PRINT ODER lj FLASH MAT 0,lBjM*tM 
} 

1430 PRINT PAPER 6;AT 0,23jT 

1440 GO SUB 3230 

1450 LET TO=0 

1460 FOR T=1 TO 15 

1470 LET TO=TOtACT,M] 

1480 NEXT T 

1490 PRINT BRIGHT MAT 17,2 3"SAnLEDE UD 
GIFTER I ";n*(m 

1500 PRINT BRIGHT MAT 18,13jT0j" kx . " 
1510 PRINT PAPER 6 J BRIGHT M INK 0;AT 
20,3j"5 = TILBAGE 8 = FR£U" 

1520 GO SUB 3300 
1530 PAUSE 0 

1540 JF 1NK£T*="0" THEN GO TO 3330 
1550 JF l NKEY*="5" THEN LET F1=n-M GO T 
0 15B0 

1560 IF 1NKET$="8" THEN LET n=N+M GO T 
0 1580 

1570 GO TO 1530 

1580 IF H<1 THEN LET M=1 

1530 IF n>12 THEN LET n=12 

1600 GO TO 1430 

1610 REM RETIE B£LfB I BUDGET 

1620 CLS 

1630 PRINT INK j; INUERSE MAT 0,0;" RE 
TTE BEL f B J BUDGET 

1640 FOR 0=1 TO J5: PRINT AT 0,3-LEN STR 
* Q i 0: PRINT AT G,5;A*CQ,IM NEXT Q 
1650 PRINT PAPER M INK 7jAT 17,01" 
INDTAST >>0<< FOR J1ENY 
1660 BEEP .2,20: INPUT PAPER 6 MINOTAST 
NUMMERET Ph D£N BUDGET- POST DU OIL RET 
TE " ;o 

1670 IF 0=0 THEN GO TO 3330 
1680 CLS 

1630 PRINT INK M INUERSE MAT 0,0;" RE 
TTE BEL IB J 

1700 PRINT OUER M FLASH MAT 0,16;A*[Q 
, 1 } 

1710 FOR n=l TO 12 

1720 PRINT AT n,3-LEN STR* n jM : PRINT AT 

n, 5;m’[M); 

1730 PRINT AT f1,25-LEN STR* A(a,M}jACQ,n 
3 jAT n,27j M kr. ■' 

1740 NEXT A 

1750 PRINT PAPER M INK 7jAT 17,0;” 
INDTAST >>0<< FOR DENY 
1760 BEEP .2,20: INPUT PAPER 6j"INDTAST 
NUnrrERET Ph MhNEO DER SKAL RETTES ■■ ;n 
1770 IF F1-0 THEN GO TO 3330 
1780 PRINT AT n,15M 
1730 PRINT AT 17,0;" 

1800 BEEP 2,20; INPUT PAPER 6;"NYT BEL 
fB 

1810 PRINT AT 0,25-LEN STR* AtQ,MliAtQ,n 
MAT h, 27 ; "k.r , " 

1820 PRINT PAPER M INK 7 jAT 17,0M 
INDTAST FOR P1£NY 

1830 00 TO 1630 
1840 RE FI I NO TESTE INOUGT 
1850 CLS 

I860 PRINT INK lj BRIGHT MAT 0,0j" INO 
TtGTER FOR HELE hRET 

1870 PRINT AT 2,0;" 1 * BRUTTQINPT*GT "jA 
T 2,28; ,, kT>" 

I860 PRINT AT 4,0 M2 = KRUG RENTE iNDTsG 
T 'MAT 4, jSM.kr. " 

1833 PRINT AT 6,0 M3 =. AKUE-UDBTTTE MA 
I 6,29 j"kr." 

1900 PRINT AT 8,0i"4 - ANDRE INDTsGTER " 
jAT Q,23i"kr t " 

1910 PRINT AT 10,0;”5 = SORT ARBEJOE ” >A 
T i0*2ai 1+ krM 

1920 PRINT AT 2,28-LEN STR* BMBI 
1830 PRINT AJ 4,28-LEN STR* BJ 1 jBM 
1940 PRINT AT B,2B-LEN STR* 8I2;BI2 
1950 PRINT AT 8,28-LEN STR* B13jBI3 
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i960 PRINT AT 10,28-LEN STR* BI4;BI4 
1970 PRINT AT 11,0;".____ 

I960 PRINT PAPER I] INK 7]AT 13,0;" TR 
YK ph PET TAL DU UIL RETTE fl 
1330 LET, BIT=BI+BJ 1 +BI2+BJ3+BI4 
2000 PRINT AT 17,0} "hRLIS BRUTTO iNOTsGT 
11 j B1T ; " ky , " 

2010 PRINT AT 19,0]" INDTsGT PR, dhNED 
" i J NT CBIT/J 2 J]" kr." 

2020 GO SUB 3300 
2030 PAUSE 0 

2040 IF lNKET4-”0" THEN GO TO 3330 

2050 IP INKE Y*='“ I" THEN 60 TO 2110 

2060 IF 1NKEY$="2" THEN GO TO 2130 

2070 IP ]NKET$~ M 3" THEN GO TO 2150 

2080 IF INKEY^M ' 1 THEN GO TO 2170 

2030 IF JNKEY$= |l 5" THEN GO TO 2130 

2100 GO TO 2030 

2110 BEEP ,2,20: INPUT PAPER 6 ] "hRLjG 8 
RUTTOINDTsGT ";3I 
2120 GO TO 1840 

2130 PEEP ,2,20: INPUT PAPER 6 ;"hRLIG R 
ENTE-lNDTsGT -; 8 I1 
2140 GO TO 1840 

2150 BEEP ,2,20: INPUT PAPER 5]"AKTIE U 

obytte ";bi 2 

2160 GO TO 1840 

2170 BEEP ,2,20: INPUT PAPER 6 ]’’ANDRE I 
NDTsGTER "]8I3 
2J80 GO TO 1840 

2130 BEEP ,2,20: INPUT PAPER 6 ; "SORT AR 

BEJDE "JBI4 

2200 GO TO J840 

2210 REfl BUDGET ANALYSE 

2220 LET SAJ1=0 

2230 CLS 

2240 LET X=0 

2250 PRINT INK l; INUERSE HAT 0,0;" BU 

OGET-ANALYSE FOR HELP hRET 

2260 FOR 0=1 TO 15 

2270 FOR n-1 TO 12 

2280 LET X-X+ACO,nj 

2230’ NEXT fl 

2300 PRINT AT 0,2-LEN STR* Q]G;AT Q, 3 ]A* 

c a, 

23J0 PRINT AT 0,25-LEN STR$ X]X]AT 0>2?] 

" k r * " 

2320 LET 5Ad=SAd+X 

2330 LET X=0 

2340 NEXT 0 

2350 PRINT OUER 1 ]AT 15,0]"_____ 

2350 PRINT INK 3;AT 16,0]" SAHLEOE IND 
TeGTER n ;BIT 1 " kr*" 

2370 PRINT INK 3;AT 17,0]" INDTsGT PR* 
NhNED HINT CB1T^12)]” kr . " 

2380 PRINT INK 2;AT 18,0;" SAdLEOE UDG 
IFTER 11 ]SAd ; rt kr , ” 

2330 PRINT INK 2 ]AT 19,0;“ dhNEDLIGE U 
0G1FTER ,P ;INT CSAn/12)]" kr , 1 
2400 PRINT INK 1]AT 20,0;"TIL FORBRUG " 
JINT CCBI-SArn^l2H" kr. P r* dhNED" 

2410 GO SUB 3300 
2420 PAUSE 0 

2430 IF INKEY*= i, 0 - THEN GO TO 3330 
2440 GO TO 2420 
2450 REN FJERNE BUDGETPOSTER 
2460 CIS 

2470 PRINT INK lj INUERSE 1 iAT 0,0]" FJ 
ERNE BUDGETPOSTER 
2480 FOR 0=1 TO 15 

2430 PRINT AT Q,2-L£N STR* OJQJAT Q, 3 ]A* 

COj)) 

2500 NEXT 0 
2510 GO SUB 3300 

2520 PR TNT INK 7] FAPER’lsAT 15, 0;"HUIL 
KEN BUDGETPOST OIL DU FJERNE" 

2530 BEEP ,2,20! INPUT Q 

2540 IF 0-0 THEN GO TO 3330 

2550 LET A* CQ,13="X 

2560 FOR n=l TO 12 

2570 LET ACOiM)=0 

2560 NEXT N 

2530 GO SUB 3120 

2600 CLS 

2610 PRINT INK li INUERSE 1 ]AT 0,0]" FJ 
ERNE BUDGETPOSTER 
2620 FQRQ=i TO 15 


2630 PRINT AT Q,2-LEN SIR* Q]G]AT Q, 3 ]A* 
CO, J J 

2640 NEXT 0 

2650 BEEP .2,20: PRINT INK 7; PAPER I]A 
T 16,0]"UIL OU LAUE EN NT BUDGETPOST J/N 

2660 PAUSE 0 

2670 IF INKEY4="N" THEN GO TO 2700 

2680 IF ]NKEY4 = "J 1< THEN GO TO 2760 

2690 GO TO 2660 

2708 BEEP ,2,20: PRINT INK 7] PAPER J ]A 
T ] 6 ,0 ] "UIL OU FJERNE FLERE BUDGETPOSTER 

2730 PRINT INK 7] PAPER 1]AT 17,141‘CJ^ 
N J J1 

2720 PAUSE 0 

2730 IF INKEY$="N" THEN GO TO 3330 

2740 IF INKEY3="J" THEN GO TO 2450 

2750 GO TO 2720 

2760 REd OPRETTE NY BUDGETPOST 
2770 CLS 

2780 PRINT INK 1] INUERSE 1]AT 0,0]" DP 
RETTE NY BUDGETPOST 
2790 FOR 0=1 TO 15 

2000 PRINT AT 0 , 2 -LEN STR* QiQjAT Q,3]A* 
CO, 1 J 

2B10 NEXT 0 

2320 PRINT OUER 1 >AT 15,0;" , , _ _ 

2830 FOR 0=1 TO 15 

2840 IF A$CQ,1)="X ” THEN 

GO TO 2910 
2B50 NEXT Q 

2B60 BEEP ,2,20; PRINT INK 7i PAPER 1 ]A 
T 16,0;"DER ER IKKE PLADS TIL EN NY POST 

2070 GO SUB 3300 
2880 PAUSE 0 

2890 IF INKEY$="0" THEN GO TO 3330 
2300 GO TO 2800 

2910 BEEP ,2,20: INPUT PAPER 6 ]"NAUN TI 
L BUDGETPOST ? "5 LINE 24 
2320 LET AUQ, 1 )"2* 

2330 CLS 

2940 PRINT INK ]; INUERSE HAT 0,0;"IND 
TAST BELiB I 

2950 PRINT OUER li FLASH HAT 0,|6;A$CQ 
i n 

2360 FOR n=l TO 12 

2970 PRINT AT d,3-LEN STR* d]d: PRINT AT 
d,5]d*(d)]"="; 

2980 PRINT AT d,25-LEN STR4 AC0,dJ]A(Q,d' 

3 ;AT d, 27 ; "kr , 11 

2390 NEXT d 

3000 FOR d=J TO 12 

3010 PRINT AT d,15]" 

3020 BEEP .2,20: INPUT PAPER 6 ]"NYT 8 EL 
<e M ;A(o,m 

3030 FRINT AT d,25-LEN STR$ AtQ,d]]AtQ,d 
1 ]AT dj 27]"kr." 

3040 NEXT d 
3050 GO SUB 3129 

3060 BEEP .2,20: PRINT INK 7] PAPER I]A 
T 17,0]" UJL DU LAUE FLERE BUDGETPOSTER 

3070 PRINT INK 7] PAPER HAT 18,14] "CJ^ 
Nl" 

30B0 PAUSE 0 

3090 IF INKEYS="N“ THEN GO TO 3330 

3100 if INKEY*="J" THEN GO TO 2760 

3110 GO TO 3080 

3120 REd ALFABETiSK ORDEN 

3130 PRINT AT 17,0;'' UENT LIGE ET fj 

EBL1K 

3140 FOR K=I TO 15= TOR C=K+1 TO 15 
3150 IF A®CKj13<=A*C C, 1 3 THEN GO TO 329 
0 

3160 FOR rW TO 12 

3170 LET E$=A*CK,d): LET A* CK,d )=A*C C, d 3 
! LET A*CC,d)-E* 

3180 LET E-ACK,fO : LET AtK,d3=ACC,d3 : lE 

t ACC,f13=E 

3190 NEXT d 

3200 NEXT C 

3210 NEXT K 

3220 RETURN 

3230 REd OPSTILLING 

3240 FOR Q=1 TO 15 


3250 PRINT AT 0,2-L£N STR* Q]0;AT Q,3]A4 

co, nr 1 ”"; 

3260 PRINT AT 0,25-LEN £TR$*ACQ,d)]At 0 ,d 

3 ]AT 0,2? J ' k r , f " 

3270 NEXT Q 

3280 PRINT OUER 1]AT 15.0;" 

3290 RETURN 

3300 REd TRYK 0 FOR dENY 
3310 PRINT INK 0] PAPER 61AT 21,3]"TRYK 
Ph >>0<<TAST FOR dENY" 

3320 RETURN 
3330 REd dENY 
3340 BORDER 4 
3350 CLS 

3360 POKE 23609,20 
3370 POKE 23658,8 

33B0 PRINT INUERSE 1 JAT 0,0;" dENY dE 
NY dENY dENY dENY " 

3390 PRINT 1 " J = LAUE NY? BUDGET" 

3400 PRINT J " 2 = BUDGET OUERSIGT" 

3410 PRINT 1 " 3 = BUDGET ANALYSE" 

3420 PRINT J " 4 = INDTASTE INDTsGTER" 

3430 PRINT 1 " 5 = RETTE BELfB I BUDGET" 

3440 PRINT JM 6 “ FJERNE BUDGET POST" 

3450 PRINT 7 = OPRETTE NY BUDGET POST 

3460 PRINT ! ” 8 = SAUE OETTE FROGRAd dED 

DATA" - 

3470 PRINT PAPER 7i INK 2; FLASH 1 ]**" 
UED BREAK BRUG GOTO 3330 
3490 PAUSE 0 

3490 IF 1NKEY$="J" THEN GO TO 3580 

3500 IF INKEY*="2" THEN GO TO 1330 

3510 IF lNKEY* = "3 ,i THEN GO TO 2210 

3520 IF 1 NK£Y*= "4" THEN GO TO 1340 

3530 IF INKEY*= "5" THEN GO TO 1610 

3540 IF INKET*“" 6 ” THEN GO TO 2450 

3550 IF INKEY*- 1 , 7" THEN GO TO 2760 

3560 IF INKEY*= "S ' 1 THEN GO TO 3650 

3570 GO TO 3480 

3580 BEEP ,2,10: BEEP .2,20: BEEP ,2,30: 
BEEP ,2,40: BEEF ,2,50: PRINT BRIGHT I 
JAT 1 B,0 ]" ER DU HELT S1KKER?, 44^ 

H * 

3598 PRINT BRIGHT H" OU SLETTER ALLE D 
E DATA DER ER " 

3600 PRINT BRIGHT li" I BUDGETTET NU* 
TRYK CJ^N) " 

3610 PAUSE 0 

3620 IF JNK£Y*= 11 J ,h THEN RUN 

3630 IF JNKEY*="N" THEN GO TO 3330 

3640 GO TO 3610 

3650 REd SAUE ROUTINE 

3660 BEEP *5,0 

3670 CLS : PRINT AT 10,0]” GIR KLAR 
TIL OPTAGELSE 

3680 SAUE "BUDGET" LINE 3720 
3690 PRINT AT 10I0]" SPOL TILBAGE FOR 
UER1FY 

3700 BEEP 1,0: UERJFY "BUDGET" 

3710 STOP 

3720 REd OANSKE BQGSTAUER 

3730 RESTORE 3750: FOR X=0 TO 7= READ S 

3740 POKE USR "S"+X,S 

3750 DATA 0,30,48,80,126,80,94,0 

3760 NEXT X 

3770 RESTORE 3790: FOR X=0 TO 7= READ F 
3780 POKE USR "F"+X,F 
3790 DATA 0,60,70,74,82,98,60,0 
3800 NEXT X 

3810 RESTORE 3830: FOR X=0 TO 7: READ H 

3820 POKE USR "H"+X,H 

3830 DATA 24,0,60,66,66,126,66,0 

3040 NEXT X 

3050 GO TO 3330 

3860 REd 

BYTES FORBRUG 

3870 PRINT Oer er brugt ";CPEEK 236 

4Jr256*P£EK 23642)-[PEEK 23635+25B*PEEK 
23636) ]" bytes' 1 : PRINT J ” Der er " ]6553 
6 -USR 7962 i " bytes t S 1 base “ : l£T iner -655 
36-USR 7962: lET qmer=mer/ 1 924 : PRINT »" 
Der er ca, " ] f I NT Corner * J 90) )/ 1 00 ]" K 
t i L b a 9 e " 

3680 STOP 
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Spectrum 

strenge 

4. REM Kodningsproc&dure 

1© LET L =LEN X$: LET £t=4#(INT 
(1/4)3-3: LET Y$= 1 '". IF l <3 THE 
N LET Y$»X(: RETURN 

IS LET VO*0; DIH X (4> : IF St+6 
= 1 THEN LET X*«X* + ” " GO TO 10 

a® FOR r=l TO St STEP 4: FOR n 
-1 TO 4-: LET xa=CODE X$(r + n-13: 
LET x (n) -xa -46-7* (xa > *65) -6# (Xa > 
•97) +15*(xa*32) ; IF Xtn)>=64 OR 
X(n)<0 THEN GO TO 9999 

2S NEXT n: LET ql=INT IX (43 /16 
3 : LET Y$=Y$+GHR$ (X (13 +64*ql) : 
LET qSalNT ((X(43-16*ql)/4); LET 
Y$=Y$+CHR$ Cx (23 +64*q2) ; LET Y$t 
=Y$ +CHRJf (X (33 +64* (X £4) -4*(4#ql+ 
q2)33: LET VO=VOtl; NEXT f: LET 
Y$=Y$tX$(StH TO l>: RETURN 

50 REM Udprintningsprocedure 


53 LET l =LEN X*: 

V (4) : LET Y* = *“‘; 

T Y*=X$: RETURN 

60 FOR r=l TO l - 
n =1 TO 3: LET X (n) 
) : LET y tn 3 = XNT (X 
(n) =x (n) -&4*y tn) : 
43 =y (1) *l6+y(23 *4 + 
TO 4: LET Yi=Y*+CH 
(x <n) > = 12) +6*(x tn) 
1)3; NEXT n: NEXT 
$ tr TO ) ; RETURN 


DIM X (43 . DIH 
IF l<3 THEN LE 

2 STEP 3: FOR 
=CGDE x$(r+n-l 
(J13/B4): LET X 
NEXT n; LET X t 
y (33 : FOR n =1 
R* (X tn 3 +46+7* 
>37) —15 *■ tx(n) = 
T; LET Y$=Y*+X 




Programmet bestdr a£ to sub- 
rutiner og har til tormdl at re¬ 
ducer e lcengden at strenge, 
idet den farste subrutine kan 
reducere antallet af karakte- 
rer i en vilkdriig streng med 1 
tor hver fjerde karakter Den 
anden subrutine kan sd til 
gengceld genskabe den op- 
rindelige streng i fuld laeng- 
de. 

Programmet vil specielt voere j 

anvendeligt i daiabasepro- ! 

grammer, hvor det kan give ! 

kapaciteisioragelse, som sva- ! 

rer til typisk 5-10 K, ekstra hu- 
kommelse (48 K spectrum), ! 
Der er imidlertid ogsd nogle 
begrcensninger: 

Strengene md kun rumme 
bogstaver (store som smd), tal 
samt punktum og mellem- 
rum. 

Bdde kodning og dekodning 
tager lidt tid, men program- 
met er sd kompakt opbygget, 
at det ikke er overvaeldende. 
F.eks. vil det tor en streng pd 
30 karakterer tage ca. 2 sek. 

I en database bar man ikke 
anvende programmet pd de 
aplysningen man typisk vil 
sage, under (f.eks. joumal- 
numre, personnummer, nav- 
ne ell. lign.). 

Disse oplysninger bar man 
bevare i ukodede strenge, 

I mange programmer vil dis¬ 
se ling ikke have sd stor be- 
tydning sammenlignet med 
den kapaciteisforagelse man 
vil Id til rddighed. 

I avrigt kan opiyses, at tor 
begge subrutiner gcelder, at 
de cendrer et x til y. Det y, der 
kommer ud at farste rutine, er 
sdledes kodet mens det y, 
som kommer ud at 2, rutine, 
er dekodet igen. 

Strenge at enhver lcengde 
kan behandles, programmet 
skulle voere helt problemlast 
(og i 100% BASIC), Det kan 
derlar uden starre problemer 
indlcegges i eksisterende pro¬ 
grammer . □ 

Michael Graversen 
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Multiaction 


1 REM C.E,CHRISTENSEN 

3 PRINT RT 10^9;“ 

_4 PRINT RT 12,7;“, 

S PRINT RT 21,Bj u 



s 

IF INKFY4 = '"* THEN GOTO 

7 

PRINT 

RT 

10/5, " 

; RT 

12., 7; 

11 

, i 

0 

FOR R 

= 14 

TO 25 

9 

PRINT 

RT 


10 

PRINT 

RT 

20,h-2;“ 

11 

SC=0 



17 

PRINT 

RT 

19, fl; 

IS 

PRINT 

RT 

20 ., Fi-u, 

19 

NEXT 1 

R 


20 

R=0 



ai 

PRINT 

RT 

19,0;"SKUD = " 


H=INT 

iRND *10> +4 

25 

PRINT 

RT 

17^0;“SCOPE = 

26 

PAUSE 

20 


4-0 

G=2 



5© 

PRINT 

RT 

H .* G; "k“ 

6© 

PAUSE 

3 


TO 

PRINT 

RT 

h, G;“ “ 

75 

IF INKEY$ = tl U 11 THEN GOTO 

30 

G=G + 1 



Q0 

IF G = 

3© THEN GOTO 22 

100 

GOTO 

50 


500 

R =R ■£1 



502 

FOR K 

= 1© 

TO 15 

504 

SOUND 

K 

SOS 

NEXT 

K 


31© 

3 = 16 



S16 

PRINT 

AT 

yi A i} ■ »t ** 

it ^ i 

517 

PRINT 

RT 

H j, G; “k " 

^20 

PRINT 

RT 

B ^ 26; “** 4 

522 

PAUSE 

1 


52S 

PRINT 

RT 

2S; “ “ 

543 

PAUSE 

3 



iorsvare dig mod de fjendlli- 
ge rumskibe. 

Rumskibene flyver i forskeUi- 
ge h0jder, og pointfordelin- 
gen er ogsd sat derefter, Del 
drejer sig med andre ord om 
at nedskyde rumskibene 1 
den st0rste h 0 jde, del er mu- 
ligt. 

Din kanon ally res ved at an- 
vende el joystick eller trykke 
pd U-tasten.D 

Claus Evers Christensen 

BSE 3=B-1 
550 G-G+l 

530 IP B<1 THEN LET B=1 

531 PRINT RT H . 2S; 11 

586 IF G>29 THEN GCTO 21 
5B7 IF PEEK B=PEEK H RNO PEEK G 
-PEEK 26 THEN GOTO 1000 
590 IF R<2© THEN GOTO 516 
60S GOTO 114-B 
1000 PRINT RT 


1010 PAUSE 5 

1020 PRINT AT H-S^G-2; 


1030 PAUSE 5 

104-0 PRINT RT H-2..Q-2 


ik * 

* 3-*“ 

3f ar# 1 ? # 

* * 3 - 

* *k * * 

* * S £ 


at at 
* S' 
£ 


1050 PRUSE 5 

1050 PRINT RT H-l^G-1;" 


1070 

1050 

1100 
1110 
1120 
1122 
1125 
1130 
1140 
1150 
1160 
1170 
1500 
1310 



FAST 

FOR X =20 TO 4-0 
SOUND X., 1©0 
NEXT X 
SLOW 

LET 5C=SC 
PR INT RT 170; Vl SCORE = “ ; 5C 
PRINT RT 19.10; "SKUD = li ;R 
IF R <20 THEN GOTO 22 
PRINT RT 11.10; “1 
PAUSE 250 
CLS 

GOTO 1 

5RUE " 5KVD FJEHDE0 11 
RUN 
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House Defender 


Ndr du bar starlet program- 
met, der passer til en VIC-20, 
kommer en Me UFQ flyvende 
hen over skcermen, Du skal 


skyde den ned, inden den 
ndr trem til din egen kanon 
eller t 0 r den fdr skudt dit hus 
belt i grus. 


Efter 10 nedskydninger har 
du vundet spillet. SHIFT funge- 
rei som »skyd». 

Jesper Udby 


0 PRINT”3" : FORT*384001038400+506 : FQKET > 0: NEXT ' HW=INT<RND< I ,>+5 

1 PQKE36879^ PEEK< 36379)RND247 

2 PRINT"*"H;WQ 
10 

12 PRINT" 

14 PRINT" mmm #w % ® % % ffi* 11 

is print" mmm n mmmmm" 




16 frimt" mm m % m at b %s sw 
is pr iHi" wmmm. mmmmm" 

20 PRINT" *m S ® » m % & B %m" 

22 print" mmmm\ \mmmmm" 

24 PRINT" rn m % IH« M B % %m" 

26 print" t rmmmmmr 

28 PRINT" m B 8 M & fa*" 




I r KM 7 I |»J 



30 print " mmmm\ \ \mmmmm" 

32 PRINT" Sl» »I-H* m n B ST 

36 IFPEEK1653>*lflNDS«0THENOO3UB1000 

37 IPS*1THENC0SUB1002 

38 GOSUB30000 

40 IFSS=0THENGOSUB1010:88-1:00TD36 

41 IFS“0THENFQRXX=1TO6 : GOSUB20000 : NEXT 
44 POKEL,32:L*L+1:IFL=LLTHEN85=0■G0T048 
46 POKEL.61:IFL=BTTHENBS=I=OOSUB33000 
48 IFB3-1THENGOSUB3000 
50 G0T036 
993 G0T036 

1000 S*X=PQKE8020.160:X=8020:GOSUB32000:RETURN 

1002 FGRQ=1TQ2 

1003 POKE*.32:X*X-22:IFX<7680THENX*S020:3=0 : RETURN 

1004 IFPEEK 00=61THENGOSUB6010 : GOSUB10000:GOSUB2000■RETURN 

1006 PGKEX.46 : NEXT _ /. 

1008 RETURN 4 Wl 

1010 Ui*RND(I)#6 

1012 L=7680+LIi*22+44:LL=L+22 
1014 LX»RND<n*200+100 

1016 LX*RND <1> #13 : BT=L+LX~1 

1017 1FWQ7RW=INT<WQXHW >RNDWGO0THENBT=7383 = L=7878:LL=7891:RW=RW-INT < RHDC1)#2 ? 

1018 POKEL. 160 : RETURN 

2000 W=W+1 : PRINT")S"W;WG : SS=0■S=0 : B3=0:IFW=10THENPRINT"BU VRNDT":OOTQ2006 W » m 

2001 POKEX-1 t 32 ; POKEX,32 : PQKEX+1.32 ; PGK£L> 32 : POKEBT,32 I \# 

2002 POKEX-1.32 : POKEX,32-POKEX+1.32:POKEL.32:POKEBT.32 ■ * 

2004 RETURN I "M 

2006 IFWQ>2@THENPRINT"MEN DINE HUSE ER UBRU-QELIGE" ■ » 

2088 END 

3000 POKEBT. 32 : BT=BT+23 : 1 FPEEK< BT >032RNDPEEK < BT) O46THEN0OSUB6000 S c ~ iimi 

3001 IFXW=1THENGOSUB10000 : GQSUB4000 : XW=0 ; RETURN 

3002 I FBT>8185THENBS=0: RETURN //EWffiPeM 

3004 POKEBT, 35: RETURN //fwgPFFmR 

4000 WQ=WQ+1 : BS=0: POKEBT. 32 : PRINT"«I"W; WG!: IFWQ=30THENEHD 

4002 RETURN _ 

6000 I FPEEK (BT) = 102ORPEEK < BT > = 104THENXW= 1 : POKEBT. 86 : RETURN 
6002 I FPEEK (BT) =35THENRETURN 

6004 GOSUB10000:PQKE36879,PEEK<36879)0R8:GOSUB1@O00:P0KE36879.PEEK136879)RND247 
6006 GOSUB4O30 PRINT"DU HftR TRBT." : PRINT"DIN KRNON ER 0DELRGT!!" 

6009 END 

6010 POKEX-1.160 : POKEX.160:PQKEX+1,160 : IFBS=1THENPOKEBT,87 
6012 RETURN 

10000 REN EXPLOSION 
10003 P0KE36877,130 

10006 FORLO=15TO0STEP-.8:POKE36878.L0 = FQRMGN1TO150 : HEXTMQ, LQ 
1@009 P0KE36877,0=P0KE36878.0:RETURN 
20000 GOTO21000 
21000 RETURN 

30000 XW=XW+1:IFXW/3=IHT<XWX3>THENP0KE36876.200 ; P0KE36878.15:F0RTV=1TQ9:NEXT:POK 

E36876.0 

31000 RETURN 

32000 P0KE36876.19@:POKELS.15 = FORET=1TO10:NEXT = POKE36876.0:RETURN 
33000 P0KE36876.220:P0KE36878,15:FORET®1TO15:NEXT = P0KE36876,0:RETURN 



tout*/ 


VIC 

20 
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IBM-Days 



Programmet ei selvlorklaiende 
Kurt Fnis Hansen 


100 REM TEST GYLDIG OATQ - linje 120-160 kan benyttes til test af indtastning 

110 REM 

120 GOSUB 400 

130 INPUT MNDTAST OATO, MANED , AR' J ; 00% t MM*/., YY% 

140 PRINT DD% 

150 GOSUB 490 

160 PRINT DD%:GOTO 130 

170 1 

180 1 Check af korrekt antal dage i mineden 
190 1 

200 ' Programmet tager hPjde for skudSr, ogsi at der kun er skudir ved 
210 * irhundredskift, nir irstallet er deleligt med tire hundred©. 

230 * Rutinen kraver at: 

240 1 YYX indeholder irstal - f.eks. 19B4 

250 * MMX indaholder mined - f.eks- 12 

260 1 DD7. indeholder dato - f.eks. 31 

270 1 

280 1 Rutinen kaldes som subroutine, og returner er vaerdien -1, hvie datoen 
290 1 i den specif 1 cerede mined er ulovlig (evt. kun det pigaeldende ir) * 

300 ’ 

310 J Routinen Render kun den Gregorlanske kalender, der er gyldlg fra 
320 * 15- oktober 1582. Datoen - variablen DDX - returneres som -1 ( hvis en 
330 f tidligere data specifieeres, 

340 1 

350 1 0vrlge anvendte variabeInavne; INGEN 
360 1 Anvendte funktionsnavne ; GYLDIG 

370 1 

380 * Placeres tidligt i programmet: 

390 1 

400 DEF FN GYLDIG=31+<<MMX=4)ORC MMX==6}QRCMM%=9)QR(MMX=11>>-(MMX=2)*((Q=KYYX MOD 
100)>-(Q=<YY% MOO 4>)-(0=C YYX MOD 4QQ))-3> 

410 1 

420 1 Bemaerk anvendelsen af sammenl ignl nger og relattoner! Er en betingeise 
430 ' opfyldt returneres va&rdien '-1 ! ellers vaerdien '0* Cnul)! 


420 1 Bemaerk anvendeisen af sammenl igninger og relationer! Er en 
430 ' opfyldt returneres vaerdien '-1 1 ellers vaerdien ’0' Cnul)! 

440 * 

450 1 Det f01gende er den egenlliga subroutine! som kan placeres frit i et 
460 1 program, Placeres subrutiner og funktioner tidligt i programmet, sikres 
470 ' maksimal arbejdshastighed! 

480 1 

490 IF YYX<1583 THEN GOSUB 530 
500 IF DDX<I OR <D0X>FN GYLDIG) THEN DDX=-1 
510 IF MMX<1 OR MMX>12 THEN DDX=-1 
520 RETURN 

530 IF YYK1582 OR MMXC1Q THEN 560 
540 IF MM%>10 THEN RETURN 
550 IF DD%>14 THEN RETURN 
560 D0X=-1 
570 RETURN 520 
500 1 

590 1 Bemaerk brugen af den specie! le RETURN 520 kommando, som 
600 * i realiteten svarer til en GOTO 520, blot med den forskel, 

610 ’ at RETUR-adressen fjernes fra compu r terens STACK, 


IBM 

PC 
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Kcmal Plus 2 


Det vrimler nu med lokale tv- 
stationer og mange sparer 
penge ved at lave deres an- 
tenner selv. 

Med dette Spectrum-program 
kan du nu selv beregne din 
antenne. 

Jan H. Rasmussen 

< I , / 











/ // 7/TT 


S CLS ^ ^ 

10 REM--------- 

15 REM ANTENNE BEREGNINGS PROG 
50 REM 

25 REM JAN H* RASMUSSEN,AABYHOJ 

30 REM..————— 

30 DIM d (J 0) 

35 DIM. &C J 03 

50 PRINT "UALG AF ANTAL ANTENNE ELEMEN 
TER H : PLOT 0,164: ORAN 255,0 
55 PR J NT 

60 PRJNT "Du kan vaelqe el antal me E le 
m'\ "3 09 10" 

60 INPUT "Anlal e lemenler " je i 
85 JF el<3 OR el>10 THEN GO TO 80 
80 PRINT ji"Je5 ^aelger "; FLASH 1;e[; 
FLASH 0] M eEementer” 

85 PRINT ,,"Skal det vaere en UHF elle 
r en UHF antenne" 

100 PRINT , > ''UHF last J ,, ,,"OHF last 2 1H 
110 INPUT f 

120 IF K1 OR f >2 THEN GO TO 110 
130 GO SUB **1008 

150 REM ----- 

15] REM REFLEKTOR UOREGNING 

152 REM *- ———— - 

155 LET ref^C150^frql*1000 

160 REM ------ 

161 REM 01 POL UPREGNiNG 

162 REM-—- 

165 LET d ip=(72*5^frqj*1000 

170 REM----- 

171 REM DiREKTOR UOREGNING 

172 REM--, 

175 LET d C1J—C145^ f r q* J000]-17250/I r q J 
180 FOR n-2 TO el-2 
185 LET dCn)=dCn-n-CdCn-l 3^100*53 
180 NEXT n 

200 REM —-----— 

201 REM ELEMENT AFSTAND 

202 REM --- --—- 

205 LET agr=300^tr9*250 

210 FOR n=l TO 3: LET aCnJ-agr: NEXT n 


220 FOR n=4 TO el-1 

230 LET atnJ + CaCn 1 -1V100*41 

235 NEXT n 

250 REM--——--- 



252 REM 


270 NEXT n 


LAENGOE AF HOUED SOM 

t =0 


n = J TO ei 

l-l 

t*t *a(n ) 


n 


lsum=INT 

tt*403 

UDSKRJFT 

PAA SKAERMEN 




302 REM------- 

305 CLS 

310 PRINT AT 0*31“"UHF-UHF ANTENNE BEREG 
NING" 

355 PLOT 8,128: DRAUl 193,0 
360 PLOT 8,127= DRAUl 193,0 
365 PLOT 11,113 : DRAW 0,28= PLOT 12,114 
: DRAUl 0,28 

370 PLOT 25,115: DRAW 0,10: PLOT 25,131 
: DRAU 0,10: PLOT 26,1151 DRAN 0,10: PLO 
T 26,131: DRAN 0,10 

375 PLOT 39,116: DRAN 0,24: PLOT 30,116 
: DRAW 0,29 

380 PLOT 53,116: ORAN 0,24= PLOT 54,116 
: DRAUl 0,29 

385 PLOT 68,117= DRAN 0,22= PLOT 60,117 
: DRAUl 0,22 

330 PLOT 83,117= DRAN 0,22= PLOT 84,117 
: DRAUl 0,22 

335 PLOT 39,118: draw 0,20: PLOT 100,11 
3: DRAN 0,20 

400 PLOT 115,118: DRAUl 3,20: PLOT 116,1 
18: DRAUl 0,20 

305 PLOT 132,119: DRAW 0,18: PLOT 133,1 
18: DRAU 0,18 

310 PLOT 143,120: DRAU 0,J6: PLOT 150,1 
20 : DRAU 0, 16 

420 PRINT AT 2,3 J"Re flektar" 

425 PLOT 23,152= DRAU -11,-8 
430 PRJNT AT 3,10 J”0ir eklor e " 

440 PRINT AT S,5rDipol CisoLeret Ira a 
nt, 3" 

445 PLOT 33,108= DRAU -13,5 
350 PRINT AT 5,2l,' r Mod sender" 

355 PLOT 168,124: DRAW 80,0 

458 PLOT 246,126: DRAW 2,-2= DRAU -2,-2 

460 PRJNT AT 2,22]"Houedbom" 

470 PLOT 175,152: DRAW ^21,-24 
500 PRJNT INUERSE 1 ]AT 9,0j"Antennefi s 
leal haue fig* laen 9 der" 


520 PRINT AT 11,0T'Houedbom " J isum]AT 
12,0j"Ref leklor " JINT re f 
530 PRINT AT l3,0;"Hyer dJpaf h ;lNT dip 
;AT J4, 0;"1. d trekior ■■JINT d(l) 

540 PRINT AT 15, 0 J "2* d i r eklor " J INT d C2 

1 

550 FOR n=3 TO e1-2 

560 PRINT AT 8+n,17 ]n J".di rekt or ";JNT 
dCn) 

570 NEXT n 

580 PRINT FLASH 1 iAT 15,01” Alle maal 
J mm " 

600 PRINT INUERSE HAT 17,0]" Atsland 
e mellem elementerne ” 

620 FOR n=i TO 3 

625 PRJNT AT 1 ?+n , 0 ; "M L 11 j n jn + 1 J " " j 

INT aCn) 

630 NEXT n 
650 FOR n=4 TO 6 

655 PRINT AT 14+n , J J J "Ml" }n J "8," Jn + l i" " 
]INT atn } 

660 NEXT n 
670 FDR n=7 TO 3 

675 PRINT AT II +n, 22 ] W M l" ]n ; ;n J" " 
; J NT atn) 

680 NEXT n 

700 PRINT INUERSE HAT 2l,0]"TAST FOR 
C0PY=1 NT ANT.“2 SAUE-3" 

710 INPUT s 

720 IF s — J THEN COPY 

730 -IF s^2 THEN RUN 

740 IF $=3 THEN GO TO 3000 

750 GO TO 710 

1000 PRINT ,,"Du bar vaEst en UHF anterm 
e 11 

1010 PRINT ,,"Huad for en TU kanal ska! 
den bruges tSL C2H68J" 

1020 INPUT "Kana l " ;gk 

1030 IF uk <21 OR uk >68 THEN GO TO 1020 
1030 LET f t 9-t(uk-2l1*81+372 
1050 RETURN 

2000 PRINT j,"Du har va I gl en UHF anlenn 
g " 

2010 PRINT ,,"Hvad fox en TO kanal skal 
den brumes ill C2-121" 

2020 INPUT "KanaE "Juk 

2030 IF vk =2 OR vk=3 OR vk=4 THEN LET f 

rq=CCok-2j*7Jr49 : RETURN 

2040 IF uk <5 OR vk>12 THEN GO TO 2020 

2045 LET f rq = C Cuk-5)*?)+176 

2050 RETURN 

3000 SAUE "ANTENNE" LINE I 


46 SOFT Special 





















Happy Days 


Hvor mange dage har du le¬ 
vel, og hvilken dag blev du 
egentlig t 0 dt? Alt dette og ik- 
ke mere, ertarer du ved 
hjcelp ai detie lille Vic-20 
program, 

Niels-J 0 igen Berfelsen 


30 PR INT" ^PROGRAMMET BEREGNER 
35 PRINT"DU ER F8BT PHfl. 

40 PRINT 

45 INPUT ° DAT0<NU) :";A 

50 IFRs! 1THENPR £ NT" "■■■■■■■■■■■I 1 

55 INPUT"MAANED<NU) : ";B 

60 I FB< 1THENPRINT" TViliBlIBBBI 

65 INPUT"RRRlNLO s OC 

78 I FtX ITHETJPRINT " TIHHHIIII 

75 PRINT : INPUT 11 UGEDRG<NU> = "JUS 

88 IFU$= n "THENPRINT ,J TTIIIHitl 

b5 PRINT : INPUT"F,DRTO ";D 

90 IFDC1 THENPR I NT" TllinillBlI 

95 INPUT"F.HflfiNED = "JE 

100 I FE<1 THENPR I NT " Tllilf ■»■> 

105 INPUT'T. RRR =*;F 

110 IF F < i T HE NP RI NT HJ TTUBfl ■ ■ ■ I ■ 

115 I FLii- " NRNDRG Jl THENU-1 

100 1FU$="TIRSDRG"THENU=2 

125 IFU*="ONSDflG"THENU=X 

130 I FU$= " T GRSDAG"THENU=4 

135 I FU$=" FREDAG ir THENU=5 

140 I Flj$="LuRBAG" THENU=6 

145 I FU£="S0MDAG rt THENU=7 

146 IFCCF UR <C=F AND B<=E AND 

147 G=E , 

150 IFC=FTHEN4S5 
155 G0SUB375 
160 YB=I-D 
165 IFE=12THEN150 
170 FGRG=E+1TU12 
175 GGSUB375 
160 YH=VB+1 
135 NEXT 

190 YI)=VB+< CC-F-1 >*365>+WTi (C- 

195 IFB*1THEN220 

200 FGRG=1TGB-1 

205 G0SUB375 

210 VP-YD+I 


HVOR MANGE URGE DU HARLEVET * GG HVILKEN BAG" 

215 NEXTG 
220 VD=VE+R 

225 IFF/401 NT (F/4>ANDEC3THEN YJD-YB-1 
:G0TO45 230 IFF74=INT< F/4)RNDE>2THEN YD=YD-1 

235 PRINT 

I" : G0TQ55 240 IF YE= 1 THENPR I NT" LEVET I "YD" ERG. " 1 GOTG260 

245 PRINT IJ LEVET 3 "YD" URGE* <J 

f" =001065 260 !FVD/7=INTtVD/7>THEN290 

265 VD=VD- (INK YD/ 7 > #7 > W 

III " G0T075 270 F0RJ=VLT01STEP“i I \/ln 

275 U=U-1 I 

r:G0T085 280 1FUC1THENU=7 I lA ! 

285 NEXTJ L . 

II" G0TG95 -M. 298 IFU= 1 THENQ$="MRNDflG” 

JWf 295 IFU=2THEN0*=rXIR3ERG" i i i 

II": GOTO 105 300 jFU=3THEN^ ^ ^ =| 

320 IFU“7THEN0$="S0HDAG" U—— - ==J - 

* 330 PRINT"F0DT PRR EN 

335 PRINT 

A<=B > THENPR INI "TITTTHIIMiMlir : G0T085 340 PRINT "RUN/STOP CR/3>" 

345 GETRJ : IFRt= ft " THEN345 

346 I FR$0" R " T H ENPRIN T " IT' ; END 

350 D»0-E=0 : F=0 ; YE=0 PRINT "IT : G0T085 

375 IFG 3 10RG=30RG»50RO=70RG=80RG= 10GRG-12THEN1=31 

389 1FG=4GRG=60RG=9GRG=11THENI=30 
385 IFG-2THENI-28 

390 IFF/4-INT<F/4)RNDG=2THENI-29 
395 IFC/4^INT<C/4)ANBG K 2THEN1=29 
400 RETURN 

F>/4) 4y5 G S E 1 GU8UB375 

410 IFB=ETHENYD=R-H 
415 IFB=E+1THENYD=<I-D>+A 

420 IFB>E+1 THENVD= I-B F0ftG*E+1T0B~ 1 : G0SUB375 = YD=YB+I NEXT YB=YB+A 
425 GOTO240 


PK=E ) THENPR 1 NT "TriTTII 


Electric 

Marathon 




EL. -BEREGN JNGER | 
TIL LAHBDP 33©0! 
OG HRRRTHON 3£K| 
Ar IB SECHEf* 

1 SS3 


2 REH 

3 R Efi 
S CL5 


IS PRINT RT gyS/ 1 ! 

PRINT “ ! ■ i i 

“ prtmt"~5t ® FOR 

(JBEKENDTE j. “ 

PRINT 

23 PRINT RT 4 L . 2.: ”DER SKRl^ UfiER 

JE 3 tlRFKF^TE.’- . 

2 3 PR INT •*“- -- ‘ " 

25 PRINT RT 6,8;"JNDTftST URTT“ 
3D INPUT P _ „ M 

4.0 PRINT RT 6,17; P) y ?X T . mi .. 
50 PRINT RT S©; " INDTftST UOi-T 

print RT 6 . IT.: U; '* UOLT** 

30 PRINT RT 3-0 . C; "INDTR5T RNPE: 

RE" 

PRINT ST 1®, 17: 1: " fiNP’ 1 
IIS PSIMT RT 12.8:‘TNDTflST OHM " 

f?? jyeio: 2_ OM „.. 

X jei r - rr in I n i as 1 _> f j *■ 


135 

pr xi^rr 


240 

3 

IF 

R=0 

RND 

150 

0 

IF 

U =0 

BNC 1 

25© 

0 

IF 

U=0 

RND 

270 

0 

IF 

1=0 

RND 

~ 1S3 
0 

IF 

1=0 

RND 

190 

n 

IF 

c 

ft 

© 

RND 

' 2 0© 

F = 

U*I 


210 

PR INT 

RT 6 

22© 


u/1 



PRINT RT 12,17;^, 4 OHM 1 ’ 

GOTO 49D 

I=U^R 

PRINT RT 10,17; I; " BMP 1 * 
P=lUfUl/R 

PRINT RT O . it; p; URTT“ 
GOTO 490 
U =P ^1 

PRINT RT 0,17; U; " UOi_T'* 
R-P^ Util 

PRINT RT 12,17;B; M OHH 4 ’ 
GOTO 490 
I-SOP CP^R> 

PRINT RT 10,17; I; BMP“ 
U=SOR £RiP) 

PRINT RT S,17;U;‘* UDLT“ 

GOTO 430 

I-P^O 

PRINT RT »np" 

R = t U *U1 ^P 

PRINT RT l2,17;Pj“ OHM" 
GOT O 4 30 


Har du en Marathon, Power 
eller Lambda kan dette pro¬ 
gram lave en rcekke elektro- 
niske beregninger, Blandt an- 
det kan du indtaste bare to at 
tslgende oplysninger: Spcen- 
ding, str0m, modstand og ef- 
fekt, hvorefter programme! 
loretager udregningen af de 
to manglende. 

Hvis linierne ira 10 til 23, fra 
490 til 760, og linie 135 ude- 
lades, kan programmet n 0 jes 
med bare 2 K RAM.D 

lb Sechei 


450 U=PtI 

20 4&S PRINT RT 6,17;U;" VOLT" 

4-70 P=R* t 1*1) 

4.3 430 PRINT PT & , 17; P; ” 14RTT" 

4-90 PRINT RT lb.2: "0JV£K£5 P1_^R^ 
4-0 EEREGNIN’GER" ; BT 1S.9; "TB3T R" 

4-95 PRINT RT 29,2: ’ FOR PHI5UDRE 

GNXNG TRST P ” 

520 IF INKFYIF-’R" THEN GOTO 5 

530 IF lNKFi'f = '‘P'" THEN GOTO Sj35 

531 IF INKEVf < >”R" PHD INKEV$<) 
“P" THEN GOTO 49© 

535 CL5 

535 PRINT ' 1 EFFEKT FOHBBDGET as 

p;" URTT“ 

54© PRINT ”INDTRST TIDEM-I HINU 

TTER " 

SSS INPUT T 

56© I=T *60 

S70 PRINT -’INDTRST PRIb/KUH*" 

560 INPUT PRIS 

"70© G-INT ( t l £P^ L 1D00) f £Z/3B03J 1 
*PRI5)*100)7100 

701 PRINT 

702 PRINT 

710 PRINT T;" MINUTTER5 DRIFT’ 
720 PRINT "MED EN KUH-PRI5 PRR 
” : PR IS; ’* KP " 

730 PRINT "ROSTER ";G;" KRONER" 
740 GOTO 490 
750 SAVE "FP 
760 RUN 
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10 " ##* 1C > 1984 Sls«£fr>n)>l?r tor AM$TRAD at Jtnl L RAtwr OdkAltfiArtn #44 

20 ■ *« INDEAET EUT. KONTRULKARAKTERER TIL PR INTER-INIT IAL £ SERING 444 
100 1 4*4 INTTlALTSeSlNS 4*4 

110 MODE i:BORBER 13:INK 0,13:INK 1,0!INK 3,3lPEN 1 

3 S'* DIM a* l 16,71:FOR n-0 to 161F0R TO ?;ff£AD a*1n ( m) : NEXT:NEXT 

130 BATA B,C,D,E,H,|->9»,A 
|40 DATA BC, DE, DA,5F,?,9,? 

130 BATA BC, DE , DA , AF 1 15 ., 13 , ? t ? 

160 DATA 0, 1 ,2,3*4,3*6,7 
3 70 DATA MZ,2,WC,C,PO,PE,F,M 

100 DATA "ADD A, - „ "ABC A, U ,'SLIB *,'SBC fit, * , H AND ','XOR * , ' DR * , 'CP “ 

19* DATA NCP,'EX AF , AF ' " , D JWZ OE , JR OE ,9,?,9,? 

200 DATA MBC) , A’ , ’A, E BC I " * " < DE > d A' * * A , ! DE > ' , ' 1 QB i , DA* , * QA, <GB i ■ , ■ 1 3D) , A" 


DISASSEM 


210 DATA FLCA,RftCA.RLA,RRA* BAA,CPL »SCF, CCF 
220 BATA RET,EXX,JP <QA),"LD SP h QA ■ p ?, ?, 2,2 

230 DATA JP OD.Fp'OUT (SC^A^'tN A* t SC 1 * * *EX t SP > , 0A' p "EX DE, HL* , DI p El 

240 BATA 015,0k, 30, li, 20,20,10,30 

250 BATA RLC , RR C , RL , R R , SL A , SPA , 31 , ' SRL * 

260 BATA I m *,7 ,im 1 * Irt 9 .7, 7 , 7 *’ 

270 BATA *LD I P A' P 'LD B,A','LD A p 1 b r "LD A, R ' , RRD, RL D, 7,7 
2@0 BATA LD p CP,lN p OT,7,7,?,? 

290 BATA I, D t I fi, DR 

300 GOTO 1300 

310 1 4*4 DISflSSEHBU C NG AF KQDEH I 'byt** *4* 

32 3 4*tbyl+ AMD 192)/64 : 9 - CBy 1V AND 36M8:h-byt* AND 7M-Eg AND A) /2:k~g AMD 1 
330 IF Byte-llS THEN 4 *-"HALTRETURN 
340 ON C L44**1 SOTO 350,100,390 
350 ON f*l GOTO 360 tBZ0.B30.370 

36* ON h*| GOTO 410,430,450,460,460,470,500,310 
370 ON h + I GOTO 540,550,570.380,390,600,620,63* 

30* ON i + L GOTO 640,650,660,670 
370 IF *<>1 THEN 790 

400 ON H+I GOTO 680* 690,700,720,740,750,770,760 
410 IF 973 THEN d*='JR -*a*l4,g-4]4',06“[RETURN 
42* C 6 -. 1 * 1 6 , g) J RETURN 

430 IF k-0 THEN d*-'LB "*»*i1,j1+ ',SB"5RETURN 

44* d*- r ADD OA* 1 ***11,J):RETURN 

450 d*-’LD " **4H 7,g] ;RETURN 

460 IF fc-0 THEN d*- H INC ' ♦**(1,J):RETURN 

470 d*-"DE£ ■+**[!, 1 3iRETURN 

400 rt*- ■ INC *4*,* [0, 9 ! : RETURN 

490 d*-'DEE ’+a*r*,g.) [RETURN 

300 d*-'LB ■* 4 *< 0 * g 1+ ■, OC■:RETURN 

510 d*--,'A (8, g I ; RETURN 

320 d*-'LB -*;i»i0*g] +*, '4-**i0,h> [RETURN 

530 d*-A*(3,g£***(0,ht;RETURN 

340 d*-'fl!ET '4**t4,gS : RETURN 

330 IF L-0 THEN d*- H POP “ *a* £2 , j, H RETURN 

360 d»=a*<9,J);RETURN 

370 d*-*JP B + i*(4 ± 9) ■+*, GD F : RETURN 

500 d*BA«C10, 9 ii RETURN 

390 d**"CAl,L 1 * ■* <4 j. 9 t +* , OD 1 * : RETURN 

600 IF k*0 THEN d*""PUSH "*»*i 2 r J3:RETURN 

610 d*“-‘tALL OD* : RETURN 

620 d *"a*(3, 9 )♦*SC p :RETURN 

630 M«*RST " *#*€ 1 1, g t : RETURN 

640 d*“.i* C S 2 | gl * 1 ' ♦ 6 * (0, hi : RETURN 

650 d»“' BIT ■ * 4 * I 3 , g ] t ■ , ” *a* £0, T. t : RETURN 

660 -*#*{ 3 . 9 ) *- , ‘■***£ 0 ,nt ; RETURN 

670 d*-“SET " *,-iF 1.3, g ) * - , ’ *■* £0 , h f : RETURN 

60* d*-»IN ****t0,9>+",1C)■:RETURN 

690 d*»*OUT ICI, *'*ji*(0t7> = RETURN 

700 TF k=B THEN d*w*3EC HL,- + A*11 1 JJI RETURN 

71* d* 1 " "ADC HL, ** 6*1 l,i J J RETURN 

720 IF k«* THEN d*-*LB £OD t, m *a* (1, i t:RETURN 

73* d*="LD - +»*U ,J S *-, (OD> -J RETURN 

740 d*^ F NEO-iRETURN 

750 TF kn* THEN d»-'RETN 1 :RETURN 

760 dt 1 "RET1':RET URN 

770 dlcatt13,9):RETURN 

7B0 d*“d*114,9):RETURN 

790 d*- 4 *tl 3 ,ti! ut( 16,91 : RETURN 

900 STOP 

310 ’ *** 1NDSAET HL , IK, IT, IHL1 r (iK-idl , ( lY+d ) 1 N»NN HUIS PAAKRAEUET #■*# 

S20 IsINSTRtd*,-OA'] 1 IF l<i* THEN QW Snd*)(4l OU5UB 730 ,96*, 97* 

330 WNSTRcd*, *aA' J : IF 1O0 THEN ON ln4*V>I GQSUB 730,960,970 

04* i-INSTRtd-*, "HB-} ! IF i < 70 THEN ON jnd»x*l OQBUB 980,990,1010 

650 k-UlSTRua*, *QC‘> I IF L < >0 THEN 0D3U1 890: d»'l,EFT *1 d*, i - 1 ) ♦ qd**NID9 S d*, 1 *2 ) ! 4- 

6*1 

660 L = 1 NSTft ( df , ■ 0D" h : IF 11 >0 THEN 8 Q 8 UB 910! «-LEFT*ld*. \-I H^qdF + HIB* ( d*, 1 *2 k : 6 “ 
6*2 

070 1 = [N$Tftt d*,'QE"1;IF i<>0 THEN OU 8 UB 930id^-LEFTmtd*, i ‘1S+ 0* td«, i*21 :*“ 

4*1 

080 RETURN 

390 j-PEFK(a) lODSUB 15101 IF M-l THEN qcR'w* ELGE q 6 **c* 

700 RETURN 

930 t-PEEKIA)* 256#PEEK£*4|)iOOSUB 13001 IF h+-l THEN qd«*v* ELSE qd*-c* 

920 RETURN 

930 r^PEERt*) :GGEUB 1320: IF h^-1 THEN q*9"HE)?*lx* 1 ** d 4) ELSE q**f STR* £ k * I * *) 

943 RETURN 

930 d*-LEFT*ld*, 1 - 11 +*HL ' *PITD* rd*, 1*21 : RE TURN 
96* d*«LEFT*3d»,1-11+"IX'*MID*td*,i+2l 1 RETURN 
770 ij**l FP T* 1 d*, 1 - 1 ) * ■ I V *M ID* (46, 1 +2) i RETURN 
990 d*«LEFT*1d* T i-114 -IHLI'*MIB*ld*,1*21 1 RETURN 
790 2 -PEEKCd*]IGOSUB 1320:IF N4*l THEN d*-v* 

1000 d*-LEFT*(d* T 1-1T+"IIX"4C*+ *)'+MIB*id*,1*21:i»dl*1 1 RETURN 
1010 r-PEEKtd*) lOGGUB 1520:IF TitM THEN Cf'V* 

1*2* d«-LEFT*(d*, 1-1 ) 4* £ IV*4C04*J * +M.1D* < d*, 1*2> :«*d** 1 : RETURN 
1*30 1 4*4 HQUEDRUTINE 444 

1040 4H>i. 

1030 IF #.□>*!vta THEN 1330 
1060 6*4-1 

1070 rlii<i:d:ind*j-B 
£000 d#-»*3 
1090 6-4*1 
1100 tyte-PEEW£4) 

1110 IF cli«s<>0 THEN 1160 

1120 IF by16-203 THEN e!#»»- 1 10OTO 109* 

1130 IF hyt*-23? THEN c146**25SUTO 1*7* 

1140 IF by 16*22 l THEN L Fid**" 1 5 GOTO 109* 

1130 IF byt*-233 THEN 1 ndr*-2:GOTO 1070 

1160 IF cl 6*6-1 AMD hftd*X<>0 THEM 11byt*-P£EK 

1170 GOSUB 310 

1 E 80 4-6*1 

1190 IF INSTRldR , "0“ IO0 THEN GOSUB 810 
1200 IF c1 6 * 6 —1 AND lnd*hC>0 THEN A-A*l 
1210 GOSUB 1240 

1 220 NHKE |NK£Y*f>" "IWEND: IF IMKET1471-0 THEN BOGUS 1330 

1230 GOTO 1030 

IZ40 r *44 UDPPINTNING 444 

1230 IF IH-1 THEN PRINTrm,HEX*t» d,4 31'|5 FOR n-AO TO •-1:PfiINTdmtrb,HEX*1PE 
EK( A) , Zt I ‘ p 11 NE KT 1 PR I NT (1*1 r*t, T AS { 23) ! d* 

3260 IF h’f-0 THEN FRINTtltr*. U3IN0-44 64 4-| id) : PR INTtt*trn, * ] * | iFOR n-*p TO *-1 : Pft 
T N T H* t r.», ST R91 PE ER ■£ n 3 T I 5 NEXT : PRINT4* t r H, T AB1233 l d* 

1270 1-1 + IlIF t>-24 THEN WHILE INKEY*<>■":WEND:PEN 3:PRINT' ■iCHR*(24 t ;*ENTER*IC 

HR* £243 S': tortitft 'i : WHILE INKET£4?}--1 AND INKETtlftl— i ANB INKEY 1 6 t ■- 1 5 MENBI t 

-0:LOCATE 1,25:REN 1 

1280 RETURN 

J 290 GOTO 1030 

L 300 ' 4*4 MENU 1 644 

1310 INPUT'dec t h*x 9 Id/M ' T l* 

£320 hf- 1 + tLOWER*Ci*)—•"d'J 
1330 GOSUB 1330 



1340 GOTO 1030 

1330 ' 444 MENU 2 444 

1360 PRINT"*tart*dT**6* ' 1 ! IF M-0 THEM PRINT ■ 1 d*e t ■ f ELSE PRINT'1h*nt *| 

1370 INPUT*' ,adrt: IF Adr**" THEM 136B 

1380 PR 1 NT * * 1U16d r * *46 '|!IF N’t-0 THEN PRINT'1d4C> "t ELSE PRINT"1h*nt *3 

1390 INPUT-',*tvt*dr*5IF tluladr*-*- THEN *JMt*dP*-'0' 

1400 IF Adr*-" THEN 1360 

1410 1NPUT * 0 n * k ** lahmt PM printer 41**1 R) * , 1* 

1420 IF LOWER61L*l<>'p H THEM »tnn-0:GOTO 145* 

1430 *triB-5 

1.440 PRINT'Hold t SPACE 3 n*d6 far At mfbryd*' 

1430 IF bf-0 THEN RESTORE I 4301 FUR n-0 TO 7: READ A* £ 11,n) !NEXT:A-UAL 1 4dr«] ELSE 
A*UAL 4 "ith 1 h «dr* ? ; DATA 00,08,16,24, 32* 4*, 48* 56 

1460 IF M-0 THEN »IUt*-VALC»kUt*dr*l ELSE ftlul A— VAL ("bh"**luLAd r* 3 
1470 IF THEN «| wt*-63336t*lul* 

1480 IF *i0 THEM A-65336+* 

1490 t-t*3[RETURN 

1300 e*-STR*111:V*-KEX*1E,41:RETURN 
1510 q*-STPAtz»:v*-HE K* i1 ,2 t :RETURN 
1320 «-iI IF x 7J 27 THEN X-X-2S6 

1330 IF k< 0 THEN C*—* - ' +S-TR* £ AfiS £x|) ELSE c*- - * - *STR *1 *1 

1340 IF jc(0 THEM 9*—' - ' *HtX* (ABS f Xl ,2) ELBE v*- ■ • ■ +-MEX* I x, 2 I 

1350 RETURN 
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Her er en hjcelp til alle dem, 
der taster maskinko depro¬ 
grammer ind. Tit er disse 
nemlig kun oftentliggjort som 
fuldstcendigt utorstdelige 
rcekker a! tal. Med detie pro¬ 
gram har du mulighed for at 
fd listet maskinkoden ud pd 
en mere forstdelig mdde: 
Som Z80 assemblersprog. 
Hvis du, kaerer laeser, er ved 
at std al her kan vi oplyse, at 
der findes udmcerkede boger 
om Z80 maskinkode bdde pd 
engelsk og efterhdnden ogsd 
pd dansk, som skulle kunne 
torklare maskinkodepro- 
grammering i detaljer. 
Indtastningen af disassemble- 
ren skulle ikke volde nogen 
va nskelighede r. Derimo d 

skal man vcere opmcerksom 
pd, al den maskinkode, som 
skal disassembles, ikke kan 
ligge hvorsomhelst, lordi dis¬ 
assembler og kasseltebuffer 
ogsd iylder op i RAM. Hvis 
man dehor saetter HMEM 
(med MEMORY-instrukiionen) 
til mindst adresse 10899 og sd 
holder sin maskinkode over 
denne adresse, vil der ikke 
opstd problemer. 

Under k0rslen disassembles 
samllige anerkendte Z80-ko- 
der (ogsd dem med ED, BC og 
indexregistrene) til standard 
Z80-mnemonics (dog undta- 
gen OUTI og OUTD som disas- 
sembleren oversaetter til OTI 
henholdsvis OTD). Udover in- 
struktionen udskrives ogsd 
adressen og de bytes, instruk- 
tionen er opbygget af. Da alt 
disassembles, sdvel program 
som data, fdr man derved en 
mulighed tor at skelne in- 
struktioner og data Ira hinan- 
den. Hvis en udskreven in- 
struktion indeholder '?' eller 
er over 4 bytes lang, er det en 
'ulovlig J instruktion, dvs. 
sandsynligvis data, der disas¬ 
sembles. 

Hvis man under disassemb- 
lingen onsker at indtaste nye 
start-/slutadresser skal man 
blot nedtrykke spacebar en, 
og har man en printer, er der 
ogsd mulighed for at bruge 
den. 


Med Vic-Grafik kan du i hoj- 
oplosningsgrafik fd diagram- 
mer over f .eks, salgstal i et dr, 
olieregninger, 

Benzinpriser eller hvad du nu 
kan tinde pd. Det selvforkla- 
rende program er nemt at be- 
tjene og korer pd en stan¬ 
dard-VIC-20. 

Bjarne Knudsen 



10 DATA 8, 0,0- 0,0,0, 0. 255 
2U BATA 6.0.0.0*0,* 0.255.255 
30 DRTfl 9.0.0.0.0.255.255.255 
40 DRTfl 0.0.0.0.255.255.25b.255 
50 DRTfl 0.0.0.255.255.255.255.255 
60 DRTfl 0.0.255.255.255.255.255.255 
70 DATA 0.255.255.255.255.255.255.255 
80 DRTfl 


255.255.255.255.255.255.255.255 


99 POKE36879.8 : POKE36869.255 

100 FGRF“7168T07167+< 8*8> : REflDfl : 1 Ffl>0'fHENR-H“ 128 
105 PQKEF.fl : NEXT 

110 PR I NT 11 3“ 

120 F0RF=7168+256T07168+263:POKEF.0 ; HEX! 

130 PR I NT M 3SHV0R NRNGE MARNE DER (1 -12 > Ei ■ 1NPUI" a 1 '. X 

140 DIM R <X > 

150 PR I NT "Cl" 

160 FORFEITOX 

170 PRINT" StlAANED'S F. "MAX 170" 
lee iNPUT ,, a il ;V:flc:F>=v 
190 NEXT 
200 PR I NT 11 T 

210 PR I NT 11 S3iJ F MAM J J A3GNDM" 
215 R=1 

220 FGRF=8147T06i46+X 
230 0=FU=0 ; O=i 
240 POKES.W : IFO-fl<R>THLN400 
250 W=W+1:IFW=STHENQ=Q-22■ 

255 0=0+1 
260 GOTO240 
400 R=R+1 : NEXT 

410 PRINT” MSN VT DIAGRAM TfiST 'FI'#"} 

420 GETR$ ; IFfl$= li B"THENRUN 

430 F0RP=1TO400 : NEXT 

440 PRINT'WT DIAGRAM TAST ' 

445 GETRi : IFR$="« H THhNRUN 
450 F0RP=1TO400 : NEXT 
460 GOT0410 
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Cosmic 

Changa 







Du befinder dig i en fiikantet 
rumstation, som kan skyde i 8 
ietninger. 

Du bliver angrebet a i UFO er 
ira kampstjernen Changa. 
De skal selvMgelig skydes 
ned, inden de ndr din aim- 
station, Rammes stationen af 
en UFO, spraenges den i lul- 
ten, og spillet er slut . *Cosmic 
Changa* er selvlorklarende 
og bliver svcerere med tiden. 

Brian Rasmussen 


0 PRINTM' 1 X^Xv \\ 

1 F0RK=54272T054296 : POKEK, 8 V 

2 FI-255 L=129 \ . 

3 P0KE54285,5 

4 POKE54277,10:PDKE54284,11 XX^^A 

5 PRINT"KEYS' 1 : PRINT"Z=VENSTR£ 0P H :PRINr'X=VENSTRE ,J ■ PRINT ,J C=VENSTRE HED M 

6 PR I NT " V=NED ” ; PRI NT 11 N-OP " : PR I NT ,f , -H0 JRE NED" : PRINT" * =H0JRE" ■ PRINT V=H0JRE QF"\ 

7 PRINT"flNY KEY TO CONTINUE’ 1 XA 

8 IFREER(197>=64THEN8 X 

10 PRINT"n ,J -PQKE532S0, 0 : P0KE53281 ,0 \ 

20 8=53248 

30 PQKER-t-21,15-PGKER+48, 1 -POKER+39■ 7 :POKEh+ 4 1,9-POKEfl+42,1 
40 PQKE2040,11>POKE2041,13-POKE2042>14-POKE2043/15 
50 FORK-0TO82-RERBB-PGKE784+K,E:NEXT 

60 DRTR128,24,1,96,24,6,112,60,14,60,60,60,30,60,120,31,126,248,15,255,240 
70 ERTR7,129,224,7,66,224,S3,36,252,255,24,255,63,24,252,7,36,224,7,66,224 
80 DRTR15,255,240,31,126,246,30,60,120,60,60,60,112,60,14,36,24,6,128,24,1 
90 POKER.128 : PGKER+1,128 
100 FOftK=0TO4STEP3-POKEK+832,24:NEXT 
110 FGRK=0TD28-RERBB:PGKE896+K,B:NEXT 

120 DRTR0,60,0,0,255,0,1,195,128,3.123,192,3,129,192-3,129,192,3,123,192 

130 DRTHl,135,128,0,255,0,0,60 

140 FGRK=0T062-RERDB=POKEK+960,B:NEXT 

150 DRTR137,17,34,0,0,0,36,146,72,0,0,0,137,85,36,32,0.8,2,136,128,136,0,36 
160 BRTR36,0,136,10,0,160,170,0,170,10,0,160,34,0,136,136,0,34,2,186,128 
170 BRTR32/0/8,137,185,66,0,0,0,36,136,72,0,0,0,137,17,36 
200 POKER+39,7 : P0KE5427S,1■P0KE54296,15:P=-l-F=1-E=0:C=5 

300 PQKER+6,B■POKER+7,C-5 

301 POKER+41,RNB (1)#15+1:POKER+2,0:P0KE54283,0 : P0KE54288, 2 -P0KE542S3,129 

302 IFP=OTHENG=G+10 : F=F + „5 -IFF>13THEHF=13 

305 P=P+i = PRINTS”-PRINTSPC<31>"POINT”P” " 

310 PQKEfl+7,0 ; PQKEfl+6,0 H=INT<RND(1>#8>+1 : QNHGOT0500,700,718,720,730,740,758,768 
500 B=0 ; C=6 : Z=F : X=F 

510 GMPEEKC197>■IF0=12THENPQKE54276,0:PGKE54273,M : P0KE54276,L■GOTO1080 

520 IFQ=23THENP0KE542?6, H■ POKE54273,M : POKE54276,L = GOTO2000 

530 IFQ=20THENPOKE54276,0■PORE54273,N■P0KE54276,L:GO F 03000 

540 IFQ=31THENP0KE54276,0■P0KE54273,M■P0KE54276,L=GOTO4000 

550 IF0=36THENP0KE54276,0:P0KE54273,N = P0KE54276,L-GOTO5000 

560 IFQ=47THEMP0KE54276,8-P0KE54273,M = P0KE54276,L■GQTQ6000 

570 IFG=44THENP0KE54276,0 -P0KE54273,fl:P0KE54276,L:GOTO7008 

580 IFQ=55THENP0KE54276,8-P0KE54273,N P0KE54276,L:GOTO8008 

590 B=B+X:C=C+Z- POKER+4,B P0kEfl+5,C 

600 IFC+5>128RNDC*15<128RNDB+ X 8>128HNBB-10<128THEN9000 
610 GOTO510 

700 0=133 : B=0:X=F = 2=8 = GOTO510 
710 C=255:E=5-X=F:Z=-F:G0T0S18 
720 C=255:E=128:Z=-F:X=0:Q0T0510 
730 C=255■E=258 = X=-F:Z=-F:G0T0510 
740 C=133 - E=255 : X=-F : Z=0 = 001057.8 
758 C=S B=255-X=-F-Z=F : G0T0518 
768 B=128-C®@iX=8 : Z*F : G0TO510 

1000 D= 136 - F0RK= 130TO48STEP“8: D=D*-8: POKFR+2, D: POKER+3, K - B=B+X - C=C+Z : POKER+4, B 







COMMO 

DOPE 

64 
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Black Jack eller 21 harer til de 
populcereste korlspil over- 
hovedet. Ved hjaelp at dette 
program til Commodore 64 
kan du optrcene dine tcerdig- 
heder, sd du ikke taber nce- 
ste gang, du udiordres til 21. 
Spillet er i 0 vrigt selvtorklaren- 
de. 

Karsten R. Larsen 


10 PRINT":}" D1MH*(52>> I*730},&*<52j,&<52> 

15 PR IMT 11 AlsjBjsartAtsamfrtm* vent t.r mJL *lJ 

20 ll<0> = " /—-\MmiWi" 

30 T$< 1 ) = " ■- 

40 T*<2> = PI I lUIBlMVil" 



118 

101 URMiMl 

13 

■lllllin 

18 

8 1 41111*11 

17 

7 1 rilHIIII 

16 

6 1 #****■ fe*K 
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50 T*<3>=" 

60 T*<4>=" 

70 T$<5>= 

m t*v&>= 

90 T*<?>= 

100 C 3>: 

110 T*0)*"I4 
120 T»a0)= l, l3 
138 T*ai;="l2 
140 T*(12>B"lKHai3TIJMmil 
150 T*<13>="ID«1E I ol ****** 

160 r*< 14M" IKONGEI IIIHNI 
178 t*ci5>«-ies ESiuinm 

1S0 T*d6>*“l* + I MIMMil 

100 T*(l7)fi“l * f laiiHlil 
200 T$a8> = H J * I 
210 T*(19>="!+ 41 

220 T#(.2G>=" I 4 * l 
230 m21>=-i ♦ i 

240 T*(32>*"l* W\ 

250 T*(23>- N l * * l'1RBBHH 
260 T*(24 >-"I 
270 m25>="l + 

230 T*(26>= u l * 

230 T*<27>="J 
300 T*< 28 
3i» T*C29>="W" 

320 T*C3e>« H l*MMI) 

400 REM **+■* SPAR FRA ES TIL KG **## 

401 DHTA28,0-15>2,2,18,2,2-15,1 

402 DHTA2S,0,11,2, 18,2,18,2, U. 1 

403 UATA2*,0r10,18,2,18,2,18,10,I 

404 DHTH28,0,9,16,2,2,2, 16,9, 1 

405 JQ8TA28, 0,8, 16,2,13,2, 16,8, 1 

406 DHTH28,8,7,17,2,17,2,17,7,1 
487 DHTA28,0,6,16,13,18,18,16,6,1 
408 DHTA26,0,5,16,18,16,18,16,5,1 
403 DATfl23,0,4,16,17,18,17-16,4,1 

410 rtATR28,0,3,16-17,16,17-16,3,1 

411 DATA2S,0,12,2,2,18,2,2,12,1 

412 DATA2S,0^13,2,2,18,2,2,13,1 

413 DflTR2s,8,14,2,2,18,2,2-14-1 

560 F0RK-BT051STEP!3■FORY=1T013 FQRX-1 TO10:RERUN 

518 1FK > 25ANDX- 11 HENA“A+1 

520 1 FK> 12flNDX>GHNDX<3ANDR< >2THE NA=H +Z 

530 fl*<Y+KJ*fl*<Y+K>+T$CA) 

540 NEXT X,V RESTORE : Z^Z+3 NE XT 

550 Kia l ‘a ,, +T*t0>+T*<30>+T$(30J+T*C30>+m30>+T*t30)+T*<30>+ I *(30>+T*(1) 

600 PRINT" 'JJifr .** *+*44 ****** * BLRCKJRCK ##*###***##***' - 
610 PRINT"HVQR MANGE SKAL SPILL6 U-5>? "^INPUTS? 

620 IF£P<10RSF>30R8FOIN7 <SP>THtNPRIHT ,, m" G0T061O 
630 FORT=lTGSP 

648 PR I NT 11 Jfi" T Fl SP lLLEP REDDER-', : LNPUTSP*< T> 

650 NEXT 

660 PRINT^'IDIMWIL DU HAVE REGLEPNE 7XN IP 
670 GETC* : IFC$“ JM, THEN670 
630 IFC$ a lh N" THEN800 

700 PRINT 11 IJSiM* ************ BLHCKJfluK #**«#**#******" 

710 PRINT "1 FflAR HVER 1080KR RT SPILLE FOktf 1 

720 PR I NT IH PET GAELOER CM AT KQMNE $AH TflET PAN 21*1" 

730 PRINT "SOM MUHGT.J1" 


740 PRINT"K0MMER DU OVER 21 HHR DA TApT,*l" 

750 PR IN T " E l LL EDKORTENE BREEDER j-UR 10«" 

760 PRINT"£S GAELDER hQR 1 ELLER H*T 

770 PRINT"0G DE RNDRE KORl FAR PERES vHERdUfll" 

780 PRINT"DU KAN IKKE SPlLlt EOR MERE END OU HAk*i" 

785 PRINT'00 KUN FOR HELE Ktf.JT 

736 PRINT"HVIS DU RHP 6 kukT OG MINURE ENH 21" 

737 PRINT"*£RH BLIVER BET RtbNhT *Ok 21 - " 

730 PRINT"TRYK 3F7# NHRfi DU ER KLHP" 

735 GEICJ 1 FC*<> ,J II"THEN7v5 

300 OO3U83000 - POKE53230,6 ■ RGKES3281,12 - PR I NT " 

813 FORT-lTOSP SPCTJsiaHOjNEXJ 
820 Q= i py.= 1 

300 PRINT"niMttMmNM]"E* i&> : U- Q > -P.Ji=8i E1K-0: TR=0 IF 8 (Q> = UTHENEK= U GOSUD6000 

310 Q=G>+1 PRINT' ^'K* 0I=BlQ) ■ ■ IEB<N>=1 lTHENEl^l '>0GilK6000 

320 PR I NT" 'SP*< pv.> » DU HAk KR. "SP<.P Y.t 

33G PRINT"HV0R NE0E1 VlL DO SATSE"j ■INPUTGh 

935 I FSHC0ORSH>SP <P‘A) GRSR< > I NT * SR, THE NPRIN J " T ) ,J ■ OOTt '33y 

340 PRINT IJ VIL DO HAVE F'LERE KGRl J/N" 

358 GETC* 

370 FOR r -0T 0100 : NEX T PR 1 NI " || " : e OR^^0 ^?j 1 HO ^NEX1 

389 IF£$=""THEN350 

330 1FGJ-' 1 T' r THEN2000 

1000 GGSUD6000 • PRINT "M'*k l * - \ R-0 

1005 IFQ K21 AND I H=32 THE NO 1“21 OOTO150O 

1010 I FQ I > -17TEILN1500 

J020 FORT=0TO508■NEXT e0SUB60O8 

1030 O-O+l THeTfl+e PRiNT"^ L TAK(TH>B*t0i- jFBtO^l 1THEN^1^=P1^+1 
1048 01^31+B<Q> IFOl>21HHDPl^>0THEFKil^Ol-J8 P1K=P1X-1 
1050 GOTO!005 

1506 1 FQ 1 >21 THENPRINT "aCUUllPiMlURlrt^iUIUKWWmilMMU LG HHR FOP MANGE DU VANDT"SH l, Kft. " 
15J0 1F01>8I rHENPRINT ,J QG DU HnR NU ,l SPePS;>+8H' l Kft," : bk(PK>=3R7P^>+SR O3T01560 

1516 IFQ1=0THEMPR1NT"OG DU HRR STAB1G"SPCPX> GOTO1560 

1520 I FQ 1 <.GT HENPR IN r 1 WWMOU1 VAN l T - GR " KR. " 

1530 I FQ KQTHENPRI NT"OG DU HhR NU" 8R<R^>+SH"KR, ■ sPvPK^SPCFX j+SA- GOTO 1560 
1540 IFQ1 >0 r'HENPF INI "nj HAR THE T "SR 111 Kfi, " 

1550 IF Q1 >0 ThENPR I NT ,j QG DU HAk NU "SPCPSI^-SA’KR, 1ILBAGE 1 SP<P^)=SPCPK>-£H 

1560 FGPT-0TO19000:NEXT 

1562 PV.-PZ+\ • IFSPCPZK=0TNENP£=PX+1 

1570 1FP^>3P1HENPX-1 

1575 KKs0 : F0RSS=1TOSP■IFSPtSs)=8THENKK*KK+l 

1576 NEXT-IFKK=SPTHEN500O 

1577 1FSP < Pli > C-0THEN1562 
1580 Q-ii+1 

1590 IF^>42THENGOSUB900O 
1600 GOTO900 

2000 C!=0+1: TH=TH+8 : GOSUB600« 

2010 PRlNT ,, lO»nilWWirtH) ,, THBt 1 Trt)R*u s >J : )FBta?=I ]1HENEX*±E^+1 

2020 u^o+Bta? 

2030 IFO>21HNDE2>0THENG=O-18 EX=E£-1 
2040 IFO>2lTHEN2100 
2050 IFQ<2IHNDTR-32THENQ=21■GO TOl000 
2060 GQTQ950 

2100 PRINT"a«HMJU HHR FOR MEGET QG RAR TRKT rft. 1 Srt. 3PLP2^SRLPX>-SH 
2H0 PRINT r, OG HAR NU"SP<PX; "KR. TIlBHGE" 

2120 PRINT"M"K1 $:FQRT-0TO1000O:NEXT 
2122 PX“P^+1 I FSP < P V. >< ^0T HENPX=PX+1 
2130 IFFX>SPTHENPZ=1 

2135 KK=0 F0RSS-1T0SP IFSP<SS>=D1HENKK-KK+1 

2136 NEXT IFKK-8PTHEN5O00 

2137 I FSP t PXX-0THEN2122 
2148 1FQ>42 THENGQSUB30OO 
2150 li=0+l : Tfl-0 : GQTQ300 

5000 POKE 53280,14- P0KE532S1,6: PR 1N T " -Tl" 

5010 PRINT"WWMMWMW)MM^^ DO SPRLE MERE HVlS JH TPVK sFi"" 

5O20 PRlNT ,J KfcTiWVJS NEJ sF7S" 

5030 GETCi ■ JFCJ=" ,J THEN50j0 
5040 IFC$="■ M THEN600 

5O50 POKE532S0,1 ■4; P0KE53281,6 - PR 1 NT H TV' • END 

6080 S-54272■POKE8+24,15 PQKE&+5,10■POKE S+b,128 : P0KL6+4,123 = POKES,37:POKES+1,17 

6010 FORX^TGSO: NEXT :P0KES+4,O ; RETURN 

3680 PRINT fJLHNDER KOR lENE" 

3005 F0RT=lT052 :B*CT)-"»inEXT 

9010 F0KT=IT052 

3020 fl=INT<RNDLl^52>+1 

3100 3“54272:POKES+24,15 : POKEs+S,128:FOKES+6■128 -PUKES+4,123:PUKES,37 - POKE9+1,17 
3110 FOPX-0TG30 NEXT =POKES+4,0 
3120 IF A > O " 11 1NEN3020 

9500 Di<H>«fl*<T> 

9520 C*-MID$(E$<H>,18,2> 

9530 BCH;=VALtL*J 
9540 IFC*”"ES"THEND(R)=11 
9550 IFB<R>=OTHENDtH>=10 
930O NEXT-0=1.REJURN 
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Snyd(ikke) -r= 
Dem selv i skat! 


8 ^ 


■ Dette skatteprogram be- 
regner en raekke faktorer ud 
fra en raekke indtastede 
data. For at programmet 
skal virke fuldt ud, skal fig. 
data indtastes: 

1. Kommuneskat % 

2. Kirkeskat % 

3. Amtsskat % 

4. Personfradrag 

5. 1. Skattegraense i % 

6. 2. Skattegraense i % 

7. 3. Skattegraense i % 

8,4, Skattegraense i kr. 

9, 2, Skattegraense i kr, 

10. Samlet pensionsfonds % 

11, Statsskatte % 


12. Skattepligtig indkomst 

13. A-indkomst 

14. Betalt skat 

Fig, kan da beregnes: 

1. Traekprocent 

2. Skattekortsfradrag 

3. Skat i kr. 

4. Skat i % af skattepligtig 
indkomst 

5. Skat i % af A-indkomst 

6. Restskat i kr. 

7. Restskat i % af korrekt 
skat. 

Udover det er programmet 
selvinstmerende. □ 

Carsten Andersen 


10 ren 

11 REM 

12 ren 

13 REM 

15 PRINT" IT: POKE53280* 6 * PQKES3231j 6 : PRINT "T 
20 G0SUB23000 

1000 REM 

1001 REM *************************** 

1002 REM fcINDTRSTNING RF SKATTEBATA* 

1003 rem mmmmmmMmmmmmmm 

1004 REM 

1050 PR I NT" rr : PR IHT" ffiKKKKKISISEKKISKflTTEPRQGRRM 1" 

1060 PRINT 1 "mttlMUtiURF CRR3TEN ANDERSEN 1331* " 

1070 prI nt M m**#*************************************'■■ 

1030 INPUT"™i. IHDTRST KOMMUNESKAT* kf ;KS 

1100 INPUTINDTRST KIRKESKAT^’ ";CS 

1200 INPUT"!iTO3. IHIURST AMTSSKAT2 : ";AS 

1300 INPUT 11 'tm, INDTRST PERSONFRADRBG■ H ;PF 

1400 INPUT Ml iW5. INDTRST 1, SKATTEGRAENSE C/.> ";SG 

1500 INPUT”«fWS. INDTRST 2* SKATTEGRAENSE C/.} ";SL 

iem INPUT'"=W7, INDTRST 3, SKATTEGRAENSE CX> "JSF 

1700 INPUT^HWB. INDTRST 1, SKATTEGRAENSE CKR> %S1 

1300 INPUT"^TKt?» INDTRST 2, SKATTEGRAENSE <KR> "J S2 

1300 INPUT" m 0. INDTRST SAMLET PENSIGNSFQNDS2 "^PS 

1330 INPUT 1 "Mil, INDTRST STATSSKATTE^ ";S 

2000 INPUT”Ml2. INDTRST SKRTTEFLIGTIG INDKOMST ";SI 

2910 INPUT”Ml3. INDTRST A-INDKOMST ";RI 

2026 INPUT"M14. INDTRST BETRLT SKRT "JDS 

4000 REM 

4001 rem * * ***** m ********** * * * * **** 

4002 REM *******BEREGNIMGERNE******* 

4003 REM *************************** 

4004 REM 

4005 PRINT"IT 1 ■POKE53239, 2 ■ P0KE53231,2 = PRINT w T 
490G T=K5+CS+AS 

4090 PR I NT " ^=T=U^TiT=T=T=T=!BEREGN INGERNE" 

4003 PRINT" it-f;Tif:TiT;T;T;T;T;Tilt************ 11 
4010 PRlNT”yS^=™m. TRAEKPROCENT* 11 
4020 PR I NT 11 iMsisT iff=TO2. SKATTEKORTSFRADRAG. ** 

4030 PRINT" f -Ui^=T=!«3. SKRT I KR. " 

4O40 PR I NT" f ^iTiT=T=T=TEi4, SKAT I X AF SKATPLG. INDK. 11 
4050 PR I NT 11 ifeTjfcTsT=W5. SKAT I X RF A-1NDKOMST." 

4060 PR I NT " 'sIsIsTiTsTsl'DOS, RESTSKRT I KR. " 

4070 PRINy iTiTiTsTsTsW. RESTSKAT I X RF KORREKT SKAT, " 

4071 PPINT M , iUT;TjT^!Fl. EDI TER I NO hF DRTR " 

4075 PR I NT 11 f iJjTifl;lfflI NUT AST TALLET UD FOR BEREGHINGEN. " 
4030 GET£$ : IFE$=”"THEN4080 

4030 IFBf~“1"THENGOSUD5000 

4031 IFB$="2"THENGOSUD6000 

4032 IFB*="3 M THENGOSUB7000 

4033 I FB$=" 4" THENGOSUB8000 
4934 I FE$=" 5 11 T HENGOSUE 3068 
4035 IFB$=“6"THENGOSUE10099 
403E- I FB$= " 7 " T HENGOSUB11999 
4S37 IFE$="■“THENGOSUE13000 
4933 RETURN 

5900 REM 



| [■ 

REM *** ***** **************** ***** 

: REM *BEREGNING RF TRREKPRDCENTEN* 

: REM ***************************** ___ 

■ REM \ 

i" I FSK=0THENOOSUE7000 \ 

i T1 = CPF*CSO+T+PSV100>+SK \ 

i TP=CT1*100?/SI \ 

i IFflI>S1THENTP=INT <TP+1*5} V 

I IFAK*SlTHENTP=dHT<TP+l> 

: IEE$ ="2"THEN RET URN 

' PR I NT "73" - POKE53230 ,2 ■ P0KE532S1,2 ■ PR I NT "SI" 
i PRINT"'^T^T=T=TsTi^M«^«DERES TRAEKPROCENT - "TP; " X " 
PRINT N m«^Ii^m«(^:liT=T:Til0NSKES FLERE EEREGNINGER (J/N>" 

' GETFl*:IFA$=""THEN5052 
: IFA $ ^"J"THEN4090 

I FR$ =tl N" THENRUN —i 

IF RIO 11 J " OR A$0 ” N ” T HE N 5952 

RETURN 

REM 

REM ***************************** 

REM *EEREGhL AF SKAT,KORTFRADRAG* 

REM ********* *** ****** ****** **** * 

REM 

IFSK=0THENGOSUE7000 
IF TP=9 THE M GO S UB5009 

SB=lNTf(Al-tSK*100/<INT(TP*19)/10))>/l2> J -- 

PRINTS" :P0KE532S0,6 : P0KE53231,£:PRINT” X* 

PRim " mmms 2 mERE $ skrttekortfradrag : m -sd; ,i kr, u 

PR I NT "NSKES FLERE DEREGNINGER ( J/N> " 

OETA^■IFA$-""THEN6952 

IFRT“"J"THEN4000 

IFA^="N"THENRUN 

IP ATO M J" ORATO "N " THENS052 

RETURN 

REM 

REM ************************** 

REM *****BEREGN. AF SKAT****** 

REM ************************** 

REM 

1FSI<=S1THENGQSUB12000 

IFSI>S1AMDSI<=S2THENGOSUE12400 

IFSI>S2THEN00SUE12S00 

S3=<SI/1O0>*PS 

S0=<SI/100)*T 

S0=< PF/100 >* CT+S+PS) 

SK=S5+S9+S0-SO 

I FBf ’ " 1" ORBT=” 2 " ORBf = M 4 "ORBf-" 5 "QRBt= " 6" OPB^’ ”7 ,h THENRETURN 
PR I NT : POKE53280,2 ■ P0KE53281,2 ■ PRINT "fil 11 

PRINT"«BW«BMDE SKAL BETALE "ISK;" KR I SKAT,” 

pr i flere eeregninger cj/n:>” 

GETRT:IFAt=""THEN7032 

IF At="J"T HEN4000 

IFR*="N"THENRUN 

IFATO' 1 J" 0RA$O " N" THEN7932 

RETURN 

REM 

REM **************************** 

REM *SKAT I X AF SKATPLG, INDK.* 

REM **************************** 

REM 

PRINT":T 'POKE53280J 2 ; P0KE53281.2 : PRINT"?!" 

IFSK-0THENGOSUB7000 
SA-INT(SK*100/SI> 

FRim''mmmmERES skat i ^ af skatplg. indk. ■ f, ;sfl;" 

PRINT"FLERE EEREGNINGER <J/N)" 

OETRf : IFRS-""THEN8043 

IFR$="J"THEN400G 

IFRf-"N"THENRUN 

r FR$0" J'ORATO ”N "THENP043 

RETURN 

REM 

REM ************************ 

REM **3KFfT I X AF A-INDK,*** 

REM ************************ 

REM 

IFSK=0THENGOSUB7008 
SN=INT < AES(SK*100/AI> > 

PR I NT “73" : POKE53230,2 ■ PGKE53231,2 ■ PR I NT " ?!” 
PRINT-MWffl^Pl^TDEPPS SKAT I AF A~INBK. ■ " J SN;" X" 

print■■ flere eeregninger <j/n>” 

GETAJ : IFRS-""THEH3043 
IFAS-"J"THEN400O 
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9045 1FA$="N"TAENRUN 

9046 IF Af O"J"ORR $ O"N"THE N9943 
9050 RETURN 

10000 REM 

10001 ren 

10002 REN *BEREGN. RF RESTSKAT <KR)* 

10003 ren mwwmmmmmmtmmm* 

10004 REN 

10020 IF SK=0T H ENG 0 SUB7000 
10O30 RS*3K-BS 
10035 IFB**"7"THEHRET URN 

10037 PRIHI"IT : PGKE53280,2■RQKE53281,2:PRINT"5J" 

10040 RESTSKAT ":RS.:" NR" 

10042 pr i \n n immBmmmmmifa^BY\SKES flere beregninger <j/n>" 

10043 GETA* IFA*=""THEN10043 

10044 IFfi$="J“THEH400S 

10045 IF Rt="N"THEHRUH 

10046 I Ffl*O n J " ORRtO" H "THEN 19643 
10050 RETURN 

11000 REN 

11901 ren mwwmmwmmmmwMmm 

11002 REN *RESTSKAT 7 RF KORREKT SKAT* 

11003 ren 

11004 REN 

11029 IFRS=9THENGQSUB10020 

11030 RP=INT(ABS < RS >*199/ES> 

11035 PR I NT "7J" - PQKE53280, 2 : PGKE53281,2 : PRINT 11 3" 

11040 PRINT"IHiTOfflfflsTjftEGTSKRT I 7 RF KORREKT SKRT : " J RP; " 7" 

11042 PR I NT" FLERE BEREGNINGER CJ/N>" 

11043 GETflt : IFR$=""THENl1043 

11044 I Fm =" J"THEN4000 

11045 IFflt="N"THENRUN 

11046: I FASO " J" GRfltO " N "THEN! 1043 
11050 RETURN 

12000 REN 

12001 ren 

12002 REN iHDEL RF SKATTEBEREGNINGEN# 

12003 ren mwmmmmwmmmmmw* 

12004 REN 

12005 S3~SI*(3G/190 > 

12010 RETURN 

12490 S6~S1#(30/100 > 

12419 S3®CSI-S1>* KSL/ 100>+S6 

12420 RETURN 

12300 S6-S1#(S0/100> 

12010 S7=CS2~S1>* <SL7100) 

12920 S8=S6+S7 

12030 S5= <SI-S2>*(SF/108)+S8 
12340 RETURN 

13009 REN 

1 3001 ren mmmmmmmmmmmm 

13002 REN ##**EBITERINGSRUTINE**#* 

13003 rem mmmmmmmmmmmm 

13004 REN 

13010 G0SUB21000 
13015 PRINT"77* 

13020 i nputnbtrst nr ,"; a 

13021 i fpi= i thenpr i NT"kommuneskrt;-: 

13022 3 FA=2THENPR 3 NT ” K I RKESKATK 

13923 I FA=3THENPR 3 NT" ^-T-T^iT-U-T-U-U RMTSSKRTE 

13924 3 Ffl -4 THENPR I NT " T=T£fiTsTiTiT=TimiT PER S DNFRHBRAG " 

13025 IFM’5THENPRINT M ^sT£T=T;7i!im^T3lK SKATTEGRRENSE CO " 

13026 I FM=£THENPR I NT k,T TiT“Oi!iUTiTi!iTiT^. SK RT T E G RRENSE CO " 

13027 IFR=7THEHPRINT"^mJS=TimsT=T^3. SKflTTEGRAEHSE CO " 

13923 I Ffl=8THENPRI NT M 17J=?i?iT=TifiiT=teT=l1 - SKATTEGRRENSE <KR> " 

13929 I FR=9THENPR f NT" "riT=TsL?=fiTiT=TiT=t^. 3KRT TEG RRENSE <KR> " 

13930 I FA“ 10THENPRI NT "77=T=m=T=mflSr=l PEHSIGNSFGHDSX 

13031 1FA“ 11 THENPR IHT " 7Tilt=TiT=TiT;T=T:T;TiT:1 STATSSKATTEtf " 

13032 ! FR= 12THENPR INI" !7^=T^=Tif=T=T=TiT=lSKfiTTEPL G. I MB KONST 

13033 IFR= 13THENPRI NT " '7iT^T=T=T=T=T^Ti1 R- 1 NBKONST 

13034 rFR^I4THEflPRINT"^T^TiT=T^ra^ BETALT SKRT 

13035 i nput" jms Ki aaaKi g i a i nbtrst nv vrerbi 

13040 IFR=1THENKS=E 
13050 IFfi’2THENCS=B 
13G60 IFR=3THENRS=B 
13079 3FA=4THENPF=B 
13030 IFR=5THENSG=E 

13099 2 FA=6THENSL=B 

13100 IFA=7THEN8F=B 

13119 IFR=8THENS1-E 

13120 IFR=9THEHS2-E 
13130 IFR=10THENPS-B 
13140 IFR=!1THEHS=E 
13150 IFR=12THENSI=B 
13160 IFfi=13THENflI=E 
13170 IFR=14THENBS=B 

13130 PR I NT " JSKES FLERE REND RINGER CVH>" 

13190 GETBf : IFEt=""THEN 13190 
13200 IFF#="J"THEN13000 
13210 I FE$= M H 11 THEH4000 
13220 I FEfO"J*0RB$O "N"THEN13198 
13239 RETURN 

21000 REN 

21001 PEN *************************** 

21902 REN *********L 18TEVALG ******** * 

21093 rem ####*###*#####****##***#*** 

21004 REM 

21005 PRINT" 3"- POKE53289,6 = P0KE53231-6 : PRINT"3" 

21909 PR I NT w ^WlWftMN;T=^H3KES EN LISTE OVER TRLLENE FOR BE" 

21019 PR I NT" WsTifilWMI NBTRSTEBE POSTER KJ/N>" 

21020 GETR$ IFfif=""THEH21020 
21030 I FRT=" J ** THENG0SUB22000 
21049 I FR$=" N 11 THEN! 3015 

21043 I FR$0" J " ORRf O" N* THEN21920 
21045 RETURN 
22000 REM 


22901 

22092 

22003 

22004 

22005 
22010 
22020 
22030 
22940 

22059 

22060 
2207G 
22039 
22990 
22100 
22110 
22128 
22139 
22149 
22159 

22169 

221 7 0 
22175 
22180 
230S0 
23010 
23O20 
23030 
23840 
2305S 

23060 

23061 
23962 

23063 

23064 

23065 
23966 

23067 

23068 

23069 
23970 

23071 

23072 

23073 

23074 

23075 
23980 

23100 

23101 

23102 
23110 
23120 
23130 
23159 
24990 
24910 
24020 
24939 

24049 

24050 
24060 
24070 
24080 
24090 
24100 
24110 
24120 
24130 
24140 
24150 
24160 

24179 

24180 
24190 
24200 
24210 
24240 
24250 
24270 
24280 
24290 
2430O 
24310 
24 320 

24330 

24340 

24350 

24369 

25009 

25010 
25029 

25039 

25040 
2505G 
25060 
25070 
25080 
25090 
25108 
25118 
25128 

25139 

25140 
25139 
25200 
25210 


REN ***r*:-f********************* 

REN ##*******#*LI3TE*********** 

rem mmw*M*wmmM*#**m*w 

REN 

PRINT "1"' POKE53280,6 1 P0KE53281 .■ 6 : PR I HT " =1" 
PR I NT " 1. KUMF1UNESK RT 11 

PRINT"y-LM-T-m2. KIRKESKRT" 

RHTSSKRT" 

PERSOHFRRBRfiO" 

1. SKflTTE GRRENSE 
SKflTTEGRRENSE 
SKRTTEGRRENSE 
SKflTTEGRRENSE 
SKfiTTEGRAENSE 
SAMLET PENSIONSFONBSM" 
STflTSSKflTTEK" 

SKflTTEPLG. INBKONST" 
fl-INBKONST" 

BETRLT SKRT" 


S 13 


3* 

1- 

2 . 


c/.y" 

CA>" 
CKR?" 
(KR>" 


PRlNT"^ff^T^sO, 

PRIHT"a!2KI^KIS!SH, 

PRINT"^LLT-LT^. 
pprnT"“ ; LTiT-LLLLF7 
PRINT'^LLU^TS. 

PRiNT w a^KiH?srae. 

PRINT" h iTkT'T:TiT;TiTit f . 

PR I NT " ‘;T=T;T^iTi7i110, 

PFINT"“^T=LT=TiTili 1. 

PFIHT"'=T;T:T=T:TiTill2, 

PPI NT " :I;T:T;Ti;TsT-U 3. 

PR I NT * IjTaTsTiTiTsTsl 14. 

PRINT":?7=T=LTiTiT:T;T;TiT;T;TTH:BT F3 
OETRT:IFflf= M "THEN22160 
IFfl$-"""THEN13015 
IFR$O"3"THEN22160 
RETURN 
REN 

ren mmmmmmm 

REN *INTROBILLEBE* 

rem mwwwwm** 

REM 

PRINT"73" POKE53280I* 6 : P0KE53281 ■ 6 : PRINT" a|" 

PR INT"**##*#***#*##########*####*********##*" 


PRINT"# 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"# 

PRINT"# 

PRINT"# 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"# 

PRINT"* 

PRINT 11 * 

PRINT"* 


*" 

*" 

*" 

*" 

*" 

*" 

*" 

*" 

#" 

*" 

*" 

*" 

#" 

*" 


PRINT 1 " #*##**# # ####*##****####*#* ###****#*##*" 
PRINT"' 11 1 T I I I II I! TTISikWikWi'tetelM **************" 
PRINT " LTiT^iT=T“T:T=TiT=t.H S KRTTEPR OORft N * " 

PRINT" *#*####*******" 

PP I NT " mmiW&V&'R F CARS! E hi AN BE RSE N 1934, " 

PR I NT " I SAM H FfT A. 11 

RPI NT " ^^IWlPJiTiTiTiTiTiTiTiTiTiT^TiT.T.T^TRST m" 

CCTfl* IFA*= 11 " THEN23150 
REM 

REM ************ 

REM #INTR0TEKST* 

REM ************ 

REM 

PRINT "73" 

PRINT"JWJKKFLG»FfiKTGRER BOR KENBES INDEN START:" 
PRINT"^*#*#*#*#############*#*###########*" 

PR I NT 11 fflkmw&ltt 1. KOMMUNESKAT" 

PR IN T " iT-TiTiTiTiT^i!2. KIRKESK AT " 

RMTSSKAT" 

PEPSONFRRBRAG" 

1. SKflTTEGRRENSE CA>" 

2 .SKflTTEDRAENSE Ci >" 

3.SKfiTTEGRAENSE< 7 >" 

1.SKATTEGRAENSE <KR>" 

2,SKATTEGRAENSE<KR>" 

SAMLET PENS 10NSF0NHS7C" 
STATSSKRTTE^" 

SKATTERLG-INBKONST" 
R-INBKOMST" 

BETAUT SKAT" 


PRINT"^^s!KKW3. 

PPlNT" ^!"T-T=Tit=T=N. 

PR I NT " yiTiT;T;T;TtT=T5. 

PRINT" ‘=T;TiTiLTiTiL>5. 

PRlNT'^^sTiTilsTd?. 

PRINT " , ^TiT=TsTjTiT^. 

PPlMT' f< :TsT:T;T:Ti:T=Til9. 

PR IN T " =TsTiT^sT=l 19. 

PRINT"^TSWSTS!^11. 

P R r N T " tTiT:TsT=TsT=l 12. 

PR IN T " LI:TiT;TsTsTe1 13. 

PRINT" 'JTiT=T=TiT=T=114. 

PRINT " TRSTfi" 

GETAT:IFflf=*"THEN24259 
REM 

REM ************* 

REM #INFORMATION# 

REM ************* 

REM 

PRINT "73" 

PR I NT " rlfMPMslP7L!Li ISSE I NFDRMflTI GNER/BATA KAN FINBES HOS 
PR I NT" 1 ^£K0MMUNEN 0G I DIVERSE SKA TTE TAB ELLER. " 

PR I NT " PIi«Ii!l(!l*I*I(Mi'T;TiT-T=T=TiT£T£;TiT=TiT™T-f s T-T-T^VFTflS Tfl " 

GET At ■ IF A# = " " THEN24360 O- 

REM ***************** W| 

REM *PR8GRAMFUNKT ION# 

REM ***************** fllll 

PRINT "73" 1^1 

PR I NT " WEFT ER BAT AINDT AST NING KAN FL G. OBRE Of -IES : " 1. J 
p r NT " 7T* * * * * *********************************** “ Eal 
pr i nt ■■ mmans&ii . t raekproc e nt . m Hil 

PPINT ,t a^Kl2 i skrttekoetsfrabrag. " 

PRIUV'VMMS. SKAT I KR, " 

PRIHT"yaf=!iM. SKAT I 7 AF SKATPLG* INBKOMST. " mM 

PRINT* , SKAT I 7 AF A -1HEKOMST. 11 f 

RESTSKAT I KR." 

PRINT M, =TsT^T7. RESTSKAT 3 7 RF KORREKT SKAT," 

PR I NT" WW^^^T^r!iT^Til^iflf1TRSTr"i" Ptt 

GETAt■3 FAf=""THEN25200 EZi 

RETURN 
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WDENS SOFTWARE? 



Commodore 

Fordi fremtiden forlsengst 
erbegyndt 


Commodore! 

Billedet wiser bare et lille udpluk at 
programmer til Commodore 64, ver 
dens mest populate hjemme- 
computer. 

Commodore er faktisk det 
computerfirma i verden, der har 
udviklet flest programmer over- 
hovedet, ca. 2.000 iait - forelsbig! 

I realiteten findes der et 
program til enhver opgave, do kan 
tsenke dig - plus en hel del andre. 
Og der kommer stadig nye til - der 
star Commodore pa Iremtidens 
software. 










Verdens sjoveste 
computer- kursus 






Altom 




’’Alt om Data Klubben” er stiftet af mi- 
nedsbladet "Alt om Data”, der er Dan- 
marks storste computermagasin. Her 
kan du hver maned finde spaendende 
artikler fra dele verden, grundige test- 
rapporter og masser af programmer. 


I samarbejde med Cavendish i Lon¬ 
don praesenterer ’’Alt om Data” 
markedets sjoveste og mest farve- 
rige computerkursus. Det bestir af 
ugebladet INPUT, der pa letlaest 
engelsk giver dig alle de tips og 
tricks, du har brug for, nar du arbej- 
der med de mest populaere hjem- 
medatamater. 

"Alt om Data Klubben" sender dig 
hver mined fire fortlobende og 
trykfriske eksemplarer af INPUT. 
Hver gang fir du et vaeld af usaed- 
vanligt flotte programmer og listnin- 


ger. Plus en masse gode rad og tips 
for bade begynderen og den mere 
erfarne hjemmecomputer ejer. 

Det er ikke dyrt at vaere medlem af 
"Alt om Data Klubben”. Hvert IN¬ 
PUT magasin koster kr. 18,75, og 
du bestiller 4 ad gangen - atsi en 
maneds udsendelse for kr. 75. 
Langt mindre end en investering I et 
kobeprogram. Ud over INPUT 
kommer "Alt om Data Klubben” le- 
bende med spaendende konkur- 


rencer og saertilbud til medlem me r- 
ne. 

INPUT computerkurserne henven- 
der sig til alle, som vil laere mere om 
data pi en forhojelig made. De vi- 
ste prog rami istninger passer til de 
fleste computere, - nemlig Com¬ 
modore 64, Spectrum, VIC-20, ZX- 
81, Dragon, BBC, Electron og Co¬ 
lour Genie. 

Bliv medlem af ’’Alt om Data Klub¬ 
ben". Brug evt. girokortet i "Alt om 
Data" nummer 8 eller rekvirer et 
nyt pi tlf.: 01-11 28 33. Eller send 
os blot 75 kr. + navn og adresse. 
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